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Introduction 


You're seated in a heavily padded chair which is vibrating 
ever so slightly. All of a sudden you feel a jolt and your view- 
screen, which has previously been black, shows the reced- 
ing form of the lunar command module. It will continue to 
orbit around the moon two hundred miles up while you land 
your LEM and explore the moon. Your viewscreen now 
shows that you are beginning to tumble, so you hit the but- 
ton on your right joystick to give a short burst on the star- 
board stabilization rockets. A few more short bursts right, 
left, then right again and your viewscreen shows that 
you've stabilized your craft and that you're headed smooth- 
ly, if rather rapidly, toward the lunar surface. In panic you 
realize that you've taken a long time with your stabilizing 
maneuvers so you jab the retro rocket firing control on full. 
Your viewscreen is now obscured by the flames so you 
switch to a computer display which shows your spacecraft 
and its position as you approach the moon. You manage to 
slow your craft, however, you see that you're heading for 
the side of a crater and you don't have enough time for 
positional maneuvers. You switch your viewscreen back on 
and hope for the best. Unfortunately, the crater walls are 
steep and one leg of your LEM makes contact before the 
others. It buckles and the craft topples over. At this, 
Mission Control in Houston sends you a radio message, 
"Ground telemetry records severe craft damage. You have 
13.2 days of oxygen. Information on rescue attempt to 
follow. Don't panic.” 

You punch another button on your console and your 
screen lights up, "Lunar Landing Simulation complete. Try 
again?" You lean back in your easychair, palms moist with 
perspiration and type, “Мо. Get Football." А moment later a 
referee and the hulking shape of Roger Staubach appears 
on the screen. The ref turns and asks you, "Heads ortails?" 

Far-fetched? Not at all. Technologically this is all possi- 
ble today. From an economic standpoint it will take a few 
more years before systems with these capabilities are with- 
in reach of the average consumer. But even today some 
amazing games are possible with the current breed of 
home computers. That's what this book is all about: games 
for home microcomputers, minis, timesharing systems and 
even large mainframes—in short, any computer that 
speaks Basic. 

Computer games are not a new phenomenon. Back in 
1952 shortly after the first commercial computers were 
introduced, A. L. Samuel at IBM wrote a checkers program 
for the IBM 701. It was written with the idea that a great deal 
could be learned about the human thought process if one 
could simulate it on a computer. This also was the reason 
that Newell, Shaw, and Simon a few years later at Rand 
Corporation wrote the first computer chess program. But 
even to those uninitiated in the field of artificial intelligence 
research, these programs were great fun as games even if 
they didn't play outstanding chess or checkers. 

But while these programs were being written as part of 
research projects, a much larger group of people were fur- 
tively writing and playing games at lunchtime and before 
and after work on their employers' computers. There were 
at least two or three of these fanatical game players, some- 
times more, at each computer installation of any size. The 
advent of the minicomputer and timesharing networks in 
the early 1960's expanded this community of computer 
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hackers and by 1966 they were meeting at various profes- 
sional society meetings and laying out plans for a com- 
puter chess tournament. 

The hard core of the hackers, the real cultists, were 
those that were into Spacewar. Originally written by some 
hackers at the MIT EE Department back in 1961-62 for a 
DEC РОЮР-1, the first minicomputer, Spacewar spawned a 
fanatical community of hackers who played, modified, 
improved and experimented with it. 

“Ah, Spacewar. Reliably at any nighttime moment, hun- 
dreds of computer technicians are effectively out of their 
bodies, computer-projected onto CRT display screens, 
locked in life-or-death space combat for hours at a time, 
ruining their eyes, numbing their fingers in frenzied mash- 
ing of control buttons, joyously slaying their friends and 
wasting their employers' valuable computer time. Some- 
thing basic is going on." (Stewart Brand in // Cybernetic 
Frontiers )* 

Item: October 10, 1972. The PDP-10 at the Stanford Al 
Laboratory is reserved from 8:00 p.m. on for the “Intergalac- 
tic Spacewar Olympics." 

Item: October 1976. Cromemco announces Spacewar for 
the 8080 and TV Dazzler. Paper tape $15.00. 

in layman's terms what those two items mean is that in 
the short span of four years Spacewar went from a game 
that required the use of a multi-million dollar computer to a 
game that could be played on a $1,000 home computer. 

What happens to a fanatical cult when you open the 
temple doors and let everyone take its source into their 
own homes? Obviously, we don't know since the temple 
hasn't been open that long, but it seems obvious that this 
same generation of kids that can't do manual math or usea 
slide rule because of the pocket calculator may learn that a 
TV set can throw some actively challenging things their 
way instead of just a passive picture. 


About this Book 


Basic Computer Games: Microcomputer Edition is a 
major revision of my first book, 701 Basic Computer Games 
published in 1973 by Digital Equipment Corporation. The 
programs in the original book represented six different ver- 
sions of Basic. The programs in this book all run in Micro- 
soft Basic (more about that later on pageXII). There were 
several programs that couldn't be converted or weren't 
worth converting to Microsoft Basic. These were deleted 
and replaced with new programs. 

Program listings were done on a Teletype Model 43 ter- 
minal. Its 7 x 9 dot matrix printer coupled with its 13.2 char- 
acters per inch spacing gives it exceptionally high legibil- 
ity, even when reduced to 64% as it has been done in here. | 
salute those of you with the first book who patiently, magni- 
fying glass in hand, deciphered nearly illegible listings and 
got those programs up and running. This book should 
make that task considerably easier. 


David H. Ahl 
September, 1978 


"Steward Brand, ІІ Cybernetic Frontiers, New York, Random 
House, 1974. 


The Basic 
Language 


Be sure to read this section before entering any of the 
games in this book on your computer. It will save you time 
and minimize potential problems. 

The games in this book were written by a wide cross 
section of people on a variety of computers over a ten- 
year period. Most of the games were originally written for 
time-sharing systems such as the DEC Timeshared 8 and 
RSTS-11, HP 2000, and CDC 3600. 

The first edition of this book was originally published in 
the early 70's. All the programs were printed in their 
original dialect of Basic. One of the major functions of 
the book was to give computer users an opportunity to 
learn more about their own and other versions of Basic. 
For example, a dimensioned string variable such as 
А%() had an entirely different meaning іп DEC and HP 
Basics. The designers of each version of Basic had good 
reasons for doing what they did and it was (and is) very 
instructive to understand how different approaches work 
and their respective rationales. 

in 1975, a small company in the telemetry business, 
M.I.T.S., introduced the first computer for hobbyists, the 
Altair 8800. This signaled the start of an immense new 
industry: personal computers. Ed Roberts, president of 
M.LT.S., contracted with a small consulting company 
started by two bright young programmers to write a 
version of Basic for the Altair. 

The name of the consulting company was Microsoft, 
and the Basic that Bill Gates and Paul Allen devised soon 
came to be known, appropriately enough, as Microsoft 
Basic. It was modeled on Basic-Plus, originally a creation 
of Nathan Teichholtz at Digital Equipment Corporation. 
Nathan is an unsung hero in the history of the Basic 
language and deserves a great deal of credit for this vastly 
improved version of the language. And in the kudos de- 
partment, we must always remember to bow low to John 
Kemeny and Tom Kurtz of Dartmouth, the creators of the 
original Basic. 

in any event, in 1977 it appeared that Microsoft Basic 
was fast becoming the standard Basic for micro- 
computers, and the programs in this book were all con- 
verted to Microsoft Basic, Revision 4.0. For about three 
years, this Basic truly was the standard. 

However, three things conspired against it becoming 
the all-time standard. First, it was written for the 8080 
(and Z80) microprocessor, and later mpu's had cap- 
abilities (and idiosyncrasies) that the 8080 did not have, 
hence, slight differences started creeping into Microsoft 
Basic on later computers. 

Second, not all computer manufacturers wanted to 
contract with Microsoft to write Basic for their computers 
and so some wrote their own. This has led to some 
particularly interesting (and confusing) dialects of Basic. 

Third, as computer hardware became more powerful 


with 16-bit mpu's, special chips for graphics and sound, 
Winchester disk drives, modems, and other peripherals, 
various extensions and changes had to be made to the 
Software. Some of these changes are in the operating 
system and are transparent to the user, but others affect 
the Basic language. 

So, what you are holding is a book of thoroughly de- 
bugged programs that can be entered directly and will 
run perfectly on some computers, while on other com- 
puters they will not run at all. What can you do about it if 
you have a computer on which the programs will not run? 

First, do not call or write us. You have paid less than a 
dime per program and, after everyone has taken his share, 
we have made less than 1 cent per program; for that, we 
can't afford to act as personal consultants. 

Second, please keep in mind that every program runs 
perfectly in Microsoft Basic 4.0. The sample runs are not 
faked; they came off a real computer exactly as they 
appear. There are no typographical errors in the pro- 
grams — misspellings maybe — but the functional code 
is absolutely correct. 

Third, the early versions of the books had programs in 
15 or 20 vastly different dialects of Basic, yet hundreds of 
thousands of purchasers managed to convert the pro- 
grams to their machines and get them going. 

The key to converting the programs is to understand 
how Microsoft Basic works compared with your Basic. 
While we cannot present an entire manual on Microsoft 
Basic, we have included in the next section information 
on the key elements of the language and those likely to be 
different in other implementations. 

If direct conversion doesn't work, do some "reverse 
engineering," (as it known inthe computer industry). This 
means taking apart a program and drawing a flowchart of 
the logic. With a flowchart in hand, you can then write 
your own program to do the same thing, but often faster 
and better, 

Since many of the programs were originally written in 
what today would be considered a primitive version of 
Basic, there are many ways of substantially shortening 
and improving some of these programs. 

You should aiso keep in mind that all of these programs 
were written on computers which used an ASR-33 
Teletype terminal. These are massive clunkers with 72 
(or 80) columns of output, upper case only, and no 
graphics capability whatsoever. Naturally, you will have 
to do a fair amount of reformatting if your computer has 
only 40 columns (Apple, etc.), 32 columns (Sinclair), 28 
columns (ТІ), or 20 columns (Epson HX-20). It can be 
done; for another book, | converted Hammurabi, Lunar 
Lander, and Gunner, all of which use 72 columns, to all 
the computers mentioned above, 


The programs in this book usethe following statements and functions in Microsoft Basic: 


Statements 
DATA 


DEF FNA(X) 


DIM 


END 
FOR..TO..(STEP) 


GOSUB n 
GOTO n 
IF.. THEN n 


IF.. THEN stmts 


IF.. THEN n ELSE m 
IF.. THEN stmts 


ELSE stmts 
INPUT 

LET 

NEXT 


ON m GOSUB... 
ON m GOTO... 


PRINT 


READ 


REM 
RESTORE 


RETURN 


STOP 


Holds numeric or string data for a 
READ statement 


Defines any function of X 


Declares maximum size of string 
or numeric array. Array subscript- 
ing begins atO although many pro- 
grams do not use the zero sub- 
script. 
Last statement in program 
Executes a loop. The test for 
ending the loop is made after the 
loop has been executed. Upon 
exiting, the counter value equals 
the upper limit plus the step. 
For example, 

10 FOR J=1 ТОЗ 

20 PRINT "HI" 

30 NEXT J 
will print "HI" three times, and J 
will equal 4 when the loop is 
finished. 
Branch to subroutine n 
Branch to statement n 
Branch to statement n if condition 
is true 
Executes statements if condition is 
true. Drops to next numbered line 
if false. 
Branch toniftrueortomifnottrue 
Does statements after THEN if 
true, stmts after ELSE if false 
Requests data from keyboard. The 
prompt string is optional 
Assigns value of expression to 
variable. 
The word LET is optional 
Marks end of FOR loop 
Branch to mth subroutine 
Branch to mth line no. 
іп these statements, m must be an 
integer starting at 1 and increasing 
by 1 
Displays strings, constants and 
variables. Calculations can be 
done within a PRINT statement 
Moves values of DATA into 
variables 
Remark. Does not execute 
Resets DATA pointer to first item 
in list 
Go to statement following last 
GOSUB 
Terminate program 
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20 DATA 4,6,“AHL” 


20 DEF FNA(X)=3*X-2 

20 DEF FNA(X)=SIN(X/57.3) 
20 DIM A(50) 

20 DIM A$(25),B1$(50) 


9999 END 


20 FOR 1=1 TO 30 
20 FOR J=2 TON STEP 3 


20 GOSUB 200 
20 GOTO 50 
20 IF A21 THEN 50 


20 IF Z«5 THEN A=1:PRINT B 
20 IF X=Y THEN 50 ELSE 90 
20 IF Z>R THEN X=1 ELSE X=2 
20 INPUT N 

20 INPUT “YES OR NO"Z$ 
20 LET A71 

20 Z$="DRY” 

20 NEXT J 


20 ON X GOSUB 100,200 
20 ON Y GOTO 50,80,120 


20 PRINT "A-5A 
20 PRINT Z$,10*A+B 


20 READ N,X1,A$ 


20 REMARKABLE PROGRAM 
20 RESTORE 


20 RETURN 


20 STOP 


Functions 
ABS (X) 
ASC(X$) 


ATN(X) 
CHR$(X) 


COS(X) 
EXP(X) 
INT(X) 
LEFT$(X$,Y) 
LEN(X$) 
LOG(X) 
MID$(X$,Y,Z) 


RND(1) 


RIGHT$(X$,Y) 
SGN(X) 


SIN(X) 
SQR(X) 
STR$(X) 


TAB(X) 


TAN(X) 
VAL(X$) 


Absolute value. 

Returns the ASCII value ofthe first 
character in the string argument. 
А5С(“А”) is65,ASC("B") is 66, etc. 
Arctangent 

Converts ASCII value to a char- 
acter string. CHR$(65) is "A", etc. 
CHR$(7) is a bell ring. 

Cosine 

Value of e raised to the X power 
Integer function 

The leftmost Y characters in X$ 
Number of characters in X$ 

Log of x to the base e 

Takes Z characters from X$ start- 
ing at position Y 

Returns a random number be- 
tween 0 and 1. 

The rightmost Y characters in X$ 
Sign function. Returns -1 if X is 
negative, O if x is zero, 1 if x is 
positive. 

Sine 

Square root 

Converts X to a string of decimal 
digits, for example if X was 8.45 it 
would be converted to the string 
“8.45”. 

Spaces over to position X on the 
terminal. 

Tangent 

Returns the numerical value of the 
string of digits in X$. Opposite of 
STR$(X). 


XII 


In Microsoft (Altair) BASIC, any expression may be 
evaluated as either true or false. A true condition will 
return a value of -1, and a false condition 0. Thus, if we say 
LET Q= -(Х=Ү), Q=1 if X=Y and Q=0 if X=Y. This logical 
evaluation of expressions is only used in the Hexapawn 
game in the user-defined function and with a little in- 
genuity could be replaced with a look-up table. A few 
other games use the logical AND and OR operators, which 
work in a straightforward manner. 

The programs in this book were printed ona printer that 
uses a caret (A) to indicate exponentiation. This is 
equivalent to an up arrow. Incidentally, exponentiation 
and taking roots are among the least accurate functions 
on small computers. For example, try this program. 

10 INPUT N 

20 I-SQR(SQR(N)) 
30 J=(1t2)t2 

40 PRINT N,J 

50 GOTO 10 

Chances are good that N and J will not be the same 25% 
or more of the time. You can improve the accuracy by sub- 
stituting J*J for J squared or J*J*J for J cubed. 

Microsoft Basic permits more than one statement on a 
line when the statements are separated by a colon (:). As 
noted above, in an IF.. THEN statement, if the condition is 
false, control drops to the next numbered line, not to the 
next statement on the same line. 

This means that for Ti and other computers that do not 
permit multiple statements on one line, you will have to 
insert additional lines. This may be difficult when line 
numbers are close together. One easy solution is to add a 
zero to all line numbers, but you must remember to do 
this in IF.. THEN, GOTO and GOSUB statements as well 
as changing all the numbered lines. 

The random function can be especially irksome as it is 
one that differs widely on different versions of Basic. In 
Microsoft Basic, RND(1) returns a value between 0 and 
0.999999. This is the convention used in all programs in 
this book. On some computers, you may have to use 
RND(0), and on others just RND. 


Conversion €o 
other Basics 


Radio Shack BASIC: Approximately 25 of the games 
which do not use strings will run under Level 1 BASIC; 
another 20 or so may be converted relatively easily by 
converting to all numeric input (1 instead of YES, 0 for NO, 
etc.). in Level 2, change RND (1) to RND (0). Also function 
definitions, when used, must be expanded. 


Apple ІІ BASIC: Ail *rograms will run directly in Applesoft 
Basic with little or no modification. in integer Basic, 
strings are similar to HF Basic. Also, multiple statements 
on one line work differently than with Microsoft Basic. 


DEC BASIC PLUS: Programs written in Altair BASIC 
should be completely compatible with DEC BASIC PLUS. 


HP BASIC: Some conversion will be required to get certain 
programs to run in HP BASIC. First, HP BASIC does not 
have a zero subscript for arrays. So if, in a program, the 
zero subscript is used, HP BASIC will report a subscript 
out of bounds error. The solution is to add one to all the 
array subscripts if it is determined that the program does 
use the zero subscript. 

Second, HP BASIC character strings differ from Altair 
BASIC. There are no string arrays. So if string arrays are 
used in some program, a conversion must be made. 
Possibly the string array could be converted into a single 
string, or anumeric array, oraseries of data statements, or 
possibly a data file. Also, HP BASIC does not have 
RIGHT$, LEFT$ or MID$ functions. Instead substitute the 
normal HP string subscripting conventions [for instance, 
RIGHTS$(X$,2) becomes X$(LEN(X$)-1, LEN(X$)]. 

Third, HP BASIC does not have multiple statements on 
one line. Convert multiple statement lines to several 
separate lines. 


SWTPC 6800 BASIC: Versions 2.0 and above of this 
BASIC should be nearly compatible. Like HP BASIC, 
SWTPC BASIC does not allow the zero subscript. Also, 
character strings may not contain more than 32 
characters. Note that in Altair BASIC, RND(1) is used to 
get random numbers, rather than RND(0) as in SWTPC 
BASIC. These comments also apply to MSI Disk BASIC. 
TDL ZAPPLE 8K and 12K BASIC: All the programs are 
executable in both TDL BASICs. However TDL ZAPPLE 
BASIC has a RANDOMIZE verb which should be inserted 
at the beginning of a program to get true pseudorandom 
numbers. 


XIII 


Sol BASIC: The programs will work directly in Sol 
Extended Basic. Many programs will run in 5K Basic but 
the majority will require considerable conversion. 


PET BASIC: Commodore PET BASIC is identical to the 
BASIC used in this book. Thus, all the games will run 
without any conversion. 


Cromemco 16K Extended BASIC: Cromemco BASIC 
allows multiple statements, but certain statements must 
be the last statement on a line, so some rearrangement 
may be necessary. Two-dimensional arrays must be 
dimensioned explicitly (there is no default to a 10 by 10 
dimension). Also, strings in Cromemco BASIC are 
implemented like HP BASIC, not Altair BASIC. 


Ohio Scientific BASIC: Most programs will run directly on 
Challenger 2P and larger systems. The 32-characters per 
line display of the Challenger 1P and Superboard will 
require conversion of the program output routines. 


IMSAI 8K BASIC: Programs are executable with little or no 
modification. 


North Star Disk BASIC: North Star BASIC has character 
strings like HP BASIC, so some conversion will be 
required. Also note that the function SQRT is used in place 
of SQR. 


PolyMorphic 11K BASIC: The multiple statement 
separator is a backslash (/), not the colon. Like North Star 
BASIC, SQRT is used instead of SQR. In Poly BASIC, 
you're not allowed to exit a FOR loop prematurely, except 
by using the EXIT verb. So whenever you see an 
IF... THEN out of a FOR loop, use the EXIT verb. Also note 
that in order to get random numbers, RND must be used 
with a "seed" value between 0 and 1, which determines at 
what point in the sequence of random numbers the RND 
function starts. This seed value is usually based on the 
time of day. After initializing the RND function, use 
RND(0) to get random numbers. 


BASIC-E (runs under CP/M Disk Operating System): All 
arrays must be dimensioned (there is no default). The 
RANDOMIZE verb should be used, at the beginning of the 
program, to get random, numbers. Also, multiple 
statements are not allowed, so conversion to several 
single statement lines will be necessary. 


Acey Ducey 


10 PRINT TAB(26);"ACEY DUCEY CARD GAHE" 


This is a simulation of the Acey 20 PRINT TABCIS)S"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
Ducey card game. In the game, the 21 PRINT 
dealer (the computer) deals two cards 23 PRINT 
face up. You have an option to bet or 30 PRINT"ACEY-DUCEY IS PLAYED IN THE FOLLOWING MANNER " 
not to bet depending on whether or not 40 PRINT"THE DEALER pei DEALS TUO CARDS FACE UP" 

feel "ard dealt wil 50 PRINT"YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING" 

an ^b the nexte rd t ван ill have а 80 PRINT"ON WHETHER OR NOR YOU FEEL THE CARD WILL HAVE" 
value between the first two. | 70 PRINT"A VALUE BETUEEN THE FIRST TUO." 

Your initial money (Q) is set to $100; 80 PRINT"IF YOU DO NOT WANT TO BET, INPUT A 0" 
you may alter Statement 110 if you 100 N=100 
want to start with more or less than 110 A PRINT=Y0U NDU HAVE ":0:" DOLLARS" 
$100. The game keeps going on until 130 PRINT M 
you lose all your money or interrupt the 140 GOTO 240 
program. 210 2-0 

The original program author was Bill 229 8070 120 
Palmby of Prairie View, Illinois. 250 GOTO 120 

260 PRINT*HERE ARE YOUR NEXT TUO CARDS * 
270 AsINTCHASRNDUD )42 
ACEY DUCEY CARD GAME 

CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 280 IF A<2 THEN 270 


290 IF 8214 THEN 270 
300 BEINT(14*RND(1))+2 
310 IF В<2 THEN 300 


ACEY-DUCEY IS PLAYED ІН THE FOLLOWING HANNER 320 IF B>t4 THEN 300 
THE DEALER (COHPUTER) DEALS TUO CARDS FACE UP 330 IF A»-B THEN 270 
YOU HAVE AN OPTION TO BET OR NOT BET DEPENDING 350 IF ACT THEN 400 
QN WHETHER OR NOT YOU FEEL THE CARD WILL HAVE 360 IF А=11 THEN 420 
A VALUE BETUEEN THE FIRST TWO. 370 IF A=12 THEN 440 
IF YOU DO NOT UANT TO BET, INPUT A 0 380 IF А=13 THEN 460 
YOU NOU HAVE 100 DOLLARS 390 IF A=t4 THEN 480 
400 PRINT A 
HERE ARE YOUR NEXT TUO CARDS 410 GOTO 500 
2 420 PRINT" JACK" 
9 430 8070 500 
440 PRINT"QUEEN" 
UHAT IS YOUR BET? 25 450 GOTO 500 
QUEEN 460 PRINT"KING" 
SORRY, YOU LOSE 470 8070 500 
YOU NOU HAVE 75 DOLLARS 480 PRINT"ACE" 


$00 IF BX11 THEN 550 
$10 IF Beit THEN 570 


HERE ARE YOUR NEXT TUO CARDS 520 IF В<12 THEN 590 
4 $30 IF В=13 THEN 610 
10 540 IF B»14 THEN 430 
$30 PRINT B 
WHAT IS YOUR BET? 25 540 GOTO 650 
10 370 PRINT"JACK" 
SORRY, YOU LOSE 580 8070 650 
YOU NOU HAVE 50 DOLLARS $90 PRINT"QUEEN" 
600 GOTO 450 
HERE ARE YOUR HEXT TWO CARDS 610 PRINT"HING" 
8 420 8070 850 
QUEEN 830 PRINT"ACE" 
840 PRINT 
WHAT IS YOUR BET? O 650 PRINT 
CHICKEN! ! 660 INPUT"UHAT IS YOUR BET";H 
670 IF М<>0 THEN 680 
НЕКЕ ARE YOUR NEXT TUO CARDS 675 PRINT"CHICHENI10* 
é 676 PRINT 
10 67? 80T0 240 
$80 IF М<=0 THEN 230 
WHAT IS YOUR BET? 20 690 PRINT"SORRY, HY FRIEND BUT YOU BET TOO MUCH” 
10 700 PRINT"YOU HAVE ONLY ";0;" DOLLARS TO BET" 
SORRY, YOU LOSE 710 GOTO 650 
YOU MOU HAVE 20 DOLLARS 230 CsINTCIASRNDUL) 242 
740 IF C<2 THEN 230 
HERE ARE YOUR NEXT TUO CARDS 750 IF (^14 THEN 730 900 PRINT 
? 780 IF С<11 THEN 810 910 IF CA THEN 930 
JACK 770 IF C=1t THEN 830 920 GOTO 920 
780 IF €=12 THEN 850 930 IF Co=B THEN 970 
UHAT IS YOUR BET? 0 790 IF С=13 THEN 820 950 PRINT"YOU МІНІ" 
CHICKEN! ! 800 IF Cz14 THEN 890 960 GOTO 210 
810 PRINT С 970 PRINT"SORRY, YQU LOSE" 
HERE ARE YOUR NEXT TUO CARDS 820 GOTO 910 980 IF М<0 THEN 240 
JACK 830 PRINT“ JACK” 990 PRINT 
QUEEN 840 GOTO 910 1000 PRINT 
850 PRINT"QUEEN" 1010 PRINT"SORRY, FRIEND BUT YOU BLEU YOUR WAD" 
UHAT IS YOUR BET? 0 840 8070 910 1020 INPUT"TRY AGAIN (YES OR М0)" ;А$ 
CHICKEN! ! 870 PRINT"KING" 1030 IF AS="YES" THEN 110 
880 GOTO 910 1040 PRINT"QK HOPE YOU HAD FUN" 
890 PRINT "ACE" 1050 END 


2 


Amazing 


This program will print out a different 


maze every time it is 


ғып and 


guarantees only one path through. You 
can choose the dimensions of the maze 
— i.e. the number of squares wide and 


long. 


The original program author was 
Jack Hauber of Windsor, Connecticut. 


AMAZING PROGRAM 


CREATIVE COMPUTING МОККІСТОИН, NEW JERSEY 


UHAT ARE YOUR WIDTH AND LENGTH? 15,20 


I I 1 I I I 
1 I II 1 I 1 I 
t=- 4 1 t 1--15-:--2 р doci0i 1 
H I I H I I 1 
2: 15-101 :--2 1--1--4--2--2 сотта 
1 1 I I I I 

p: 2 deei 1 керет: P 02-41-54 
I I I I I I 
І--:--іЗ-1--4-2: i-i g 15-:--1--і-- 
1 1 1 1 I I 

t 04554404202 972771 ioi 1 gesis 
1 I I I I Í I 

pi (P doni 1--4--) o de0ic0io doi 

I I I I H I I 

z deei p og 2 gesit- f f о: 

I 1 I I I I 1 II 
202 153144: peep ob 45-4 40-4 tect 
11 І I] I I 1 

q si: doi P P ob doni dci od 
I I IL III I I 1 
Pii 2 1 deb GP o: ped о: 
I I I ride I I 
Pogoi а-а-а ob ob 14----і іі 
I I I III 1 

ç iesise 2 decided i 3-45-42 їз 
1 I I I I I I 
{чїч o io0do7i 2 beck ro odo0i00i o d 
I I I I I I I 

1 I H I I I I I 

Ło tesem- p (P o Poci-ci00i оо: 
11 I I I I I 
8 1 155: berger dpo0iv0i bese gens 
1 1 1 І 1 
БОЛТ: 35-:--4--1554--4--45-2 02 1--і-- 
1 I I I I I 

1 I I I 


10 PRINT T68(28); “AMAZING PROGRAK” 


20 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINT:PRINT:PRINT:PRINT 
INPUT “WHAT ARE YOUR WIDTH AND LENGTH";H,V 


100 
102 
104 
110 
120 
130 
140 
150 
160 
165 
170 
171 
173 
180 
19 
195 
200 
210 
215 
220 
239 
240 
230 
260 
263 
270 
280 
290 
300 
310 
320 
330 
334 
338 
340 
350 
340 
370 
380 
390 
400 
405 
410 
415 
420 
430 
440 
450 
40 
470 
480 
485 
470 
500 
510 
520 
530 
940 
545 
547 
550 
552 
554 
560 
570 
580 
590 
600 
610 
620 
625 
630 
640 
450 


IF HX t AND VO1 THEN 110 
PRINT "HEANINGLESS DIMENSIONS. 


DIM UCH, V), VIH, V) 
PRINT 

PRINT 

PRINT 

PRINT 
Q=0:Z=0;X=INT(RND(1)*H+1) 
FOR 1=1 TO H 

IF I=X THEN 173 

PRINT ".--";:60TO 180 
PRINT *. *; 

NEXT I 

PRINT 9,“ 
С=1:00Х, D SCHCSCH 
R=X:S=1:6010 240 

IF ROH THEN 240 

IF SOV THEN 230 
Rz1:8-1:00T0 250 
R31:55541:80TO 250 
R=R+Í 

IF W(R,S)=0 THEN 210 

IF R-1-0 THEN 530 

IF U(R-1,8)400 THEN 530 
IF 8-120 THEN 390 

IF U(R,8-1)O0 THEN 390 
IF ReH THEN 330 

IF U(Re1,S)450 THEN 330 
Xe INT(RNDUL) 341) 

ON X GOTO 790,820,840 
IF S<>V THEN 340 

IF Z=1 THEN 370 
Q=1:60T0 350 

IF W(R,841)00 THEN 370 
X2 INTRNDUL 8341} 

ON X GOTO 290,820,910 
XE INT (ЕНД CH) 4241) 

ON X GOTO 790,820 

IF R-H THEN 470 

IF U(R+1,S)<>0 THEN 470 
IF SOV THEN 420 

IF Z=1 THEN 450 
0-1:60T0 430 

IF U(,SH1)O0 THEN 450 
XEINTCRNDCL) #341) 

ON X GOTO 790,840,910 
XSINT(RHD(1) #249) 

ON X GOTO 790,840 

IF SOV THEN 490 

IF 2-1 THEN 520 
Q«1:G0T0 500 

IF U(R,9412420 THEN 320 
Xs INT(RRDCL 8221) 

QN X GOTO 790,910 

6070 790 

IF 5-1=0 THEN 470 

IF U(R,S-1)<>0 THEN 870 
IF RzH THEN 610 

IF W(R+E,5)<>0 THEN 610 
IF SOV THEN 560 

IF 151 THEN 590 
-1:8010 570 

IF W(R,S#1)<>0 THEN 590 
XEINTCRND (1) 0341) 

ON X 1070 820,860,910 
X2 INT (RNDUL) 8241) 

ON X GOTO 820,860 

IF SOV THEN 630 

IF Z-1 THEN 660 
0-1:0070 440 

IF ШЕ,8%13520 THEN 660 
X=INT(RND(1)*2+1) 

DN X BOTO 820,910 


3 


TRY 


660 
470 
680 
685 
690 
695 
700 
710 
720 
730 
740 
750 
255 
760 
770 
780 
790 
800 
810 
815 
820 
830 
840 
850 
840 
870 
875 
880 
890 
900 
905 
910 
920 
930 
940 
950 
955 
960 
970 
975 
980 


AGAIN." :G0TO 100 


8070 820 

IF R=H THEN 740 

IF U(R+1,S)<>0 THEN 240 

IF SQV THEN 700 

IF Z=t THEN 730 

8:1:60T0 830 

IF U(R,S21) 0 THEN 730 
XEINTCRND(1) $241) 

ON X GOTO 840,910 

GOTD 860 

IF SOU THEN 760 

IF 2-1 THEN 780 

Q=1:60T0 770 

IF V(R,S*1)00 THEN 280 
6010 910 

GOTO 1000 

U(R-1,S)=C 

EzC 1:9 (R-1,8):2:R-R-1 

IF CHeV+! THEN 1010 
Q=0:G0T0 260 

VER, 8-1 )5C 

бесі 
VR,871)51:828- 12 IFCSHHU41 THEN 1010 
0-0:6010 260 

U(R+1,S)=C 

C=C+1IF V(R,S)-0 THEN 880 
V(R,5)23:6010 890 

V(R,8)22 

R=R+1 

IF CcHeU41 THEN 1010 

вото 530 

IF 0=1 THEN 960 
M(R,S+1)=C:C=C+1:1F V(R S)50 THEN 940 
V(R,8)-3:6010 950 

V(GR,S)51 

S=S+1:IF C=H*V+1 THEN 1010 
GOTO 260 

1-4 

IF V(R,S)=0 THEN 980 
9(R,8)73:020:60T0 1000 
V(R,S)=120803R=1:521:00T0 250 


1000 GOTO 210 
1010 FOR Jst TO V 


1011 


PRINT "I"; 


1012 FOR 1=1 TO H 
1013 IF V(I,J)42 THEN 1030 
1020 PRINT * "3 


1021 


GOTO 1040 


1030 PRINT " 1"; 
1040 NEXT I 


1041 


PRINT 


1043 FOR 1=1 TO H 
1045 IF V(I,J)20 THEN 1040 
1050 IF V(I,J)22 THEN 1060 


1051 


PRINT *: "3 


1052 GOTO 1070 
1060 PRINT ":--"; 
1070 NEXT I 


1071 


PRINT ",." 


1072 NEXT J 
1073 END 


Animal 


Unlike other computer games in 
which the computer picks a number or 
letter and you must guess what it is, in 
this game you think of an animal and 
the computer asks you questions and 
tries to guess the name of your animal. 
if the computer guesses incorrectly, it 
will ask you for a question that differen- 
tiates the animal it guessed from the 
one you were thinking of. In this way 
the computer "learns" new animals. 
Questions to differentiate new animals 
should be input without a question 
mark. 

This version of the game does not 
have a SAVE feature. If your system 
allows, you may modify the program to 
save array A$, then reload the array 
when you want to play the game again. 
This way you can save what the 
computer learns over a series of 
games. 

At any time if you reply "LIST" to the 
question "ARE YOU THINKING OF AN 
ANIMAL," the computer will tell you all 
the animals it knows so far. 

The program starts originally by 
knowing only FISH and BIRD. As you 
build up a file of animals you should 
use broad, general questions first and 
then narrow down to more specific 
ones with later animals. For example, if 
an elephant was to be your first animal, 
the computer would ask for a question 
to distinguish an elephant from a bird. 
Naturally there are hundreds of 
possibilities, however, if you plan to 
build a large file of animals a good 
question would be "IS IT A MAM- 
MAL." 

This program can be easily modified 
to deal with categories of things other 
than animals by simply modifying the 
initial data in Line 530 and the dialogue 
references to animal in Lines 10, 40,50, 
130, 230, 240, and 600. In an 
educational environment, this would 
be a valuable program to teach the 
distinguishing characteristics of many 
classes of objects — rock formations, 
geography, marine life, cell structures, 
etc. 

Originally developed by Arthur 
Luehrmann at Dartmouth College, 
Animal was subsequently shortened 
and modified by Nathan Teichholtz at 
DEC and Steve North at Creative 
Computing. 


ANIMAL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PLAY “GUESS THE ANIMAL’ 
THINK OF AN ANIMAL AND THE COMPUTER WILL TRY TO GUESS IT. 


ARE YOU THINKING OF AN ANIMALT Y 

DOES IT SUIHT NO 

IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS А 7 ELEPHANT 
PLEASE TYPE IN & QUESTION THAT WOULD DISTINGUISH A 
ELEPHANT FROM 4 BIRD 

7 DOES ІТ LIKE PEANUTS 

FOR А ELEPHANT THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SWIM? YES 

15 IT А FISH? NO 

THE ANIMAL YOU WERE THINKING OF WAS A 7 SEAL 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
SEAL FROM A FISH 

7 DOES IT HAVE SCALES 

FOR A SEAL THE ANSWER WOULD BE ? NO 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SUINT NO 

DOES IT LIKE PEANUTS? NO 

IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING OF WAS A ? LION 
PLEASE TYPE IN & QUESTION THAT WOULD DISTINGUISH A 
LION FROM A BIRD 

7 DOES IT ROAR 

FOR A LION THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMAL? YES 

DOES IT SUIMT YES 

DOES IT HAVE SCALES? NO 

IS IT A SEAL? NO 

THE ANIMAL YOU VERE THINKING OF UAS A ? OCTOPUS 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH A 
OCTOPUS FROM А SEAL 

Т DOES IT HAVE EIGHT TENTACLES 

FOR A OCTOPUS THE ANSWER WOULD BE ? YES 

ARE YOU THINKING OF AM ANIMALT YES 

DOES IT SUIHT NO 

DOES IT LIKE PEANUTS? YES 

18 IT à ELEPHANT? YES 

WHY NOT TRY ANOTHER ANIMAL? 

ARE YOU THINKING OF AN AHIMALT YES 

DOES IT SWIM? NO 

DOES IT LIKE PEANUTS? NO 

DOES IT ROART NO 

IS IT A BIRD? NO 

THE ANIMAL YOU WERE THINKING GF WAS A ? UUMPUS 
PLEASE TYPE IN A QUESTION THAT WOULD DISTINGUISH А 
WUMPUS FROM A BIRD 

Т 18 ITS LAST МАМЕ YOB 

FOR A UUMPUS THE ANSWER WOULD BE 7 YES 

ARE YOU THINKING OF AN ANIMALT LIST 


ANIMALS I ALREADY KNOW ARE: 
ELEPHANT FISH LION SEAL OCTOPUS 
QUMPUS 


ARE YOU THINKING OF AN ANIMAL? NO 
ARE YOU THINKING OF AN ANIMAL? 


BREAK IN 130 
OK 


— ULU L р чйрнн нети, 


BIRD 


10 
20 
30 


PRINT TAB(32) ;" ANIMAL" 
PRINT TABC1S) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
PRINT: PRINT: PRINT 
PRINT "PLAY “GUESS THE ANIMAL" 
PRINT "THINK OF AN ANIMAL AND THE CONPUTER WILL TRY TO GUESS IT." 
PRINT 

DIM à$(200) 
FOR Із0 TD 3 
READ А$(1) 

NEXT I 

WaVAL(AS(0)) 

REM WAIN CONTROL SECTION 

INPUT "ARE YOU THINKING OF AN ANIMAL"; A$ 

IF AS="LIST" THEN 600 

IF LEFT$(A$,1)<>"Y“ THEN 120 

Ket 

80598 390 

IF LEN(AS(K))20 THEN 999 

IF LEFTSCAS(K),2)="\Q" THEN 170 

PRINT "IS IT A ";RIGHTS(ASOD ,LENCAS (OD -2); 

INPUT A$ 

ASSLEFT$(AS, 1) 

IF A$="Y" THEN PRINT “WHY NOT TRY ANOTHER ANIMALt": GOTO 120 
INPUT "THE ANIMAL YOU UERE THINKING OF UAS A ";U$ 

PRINT "PLEASE TYPE IM А QUESTION THAT WOULD DISTINGUISH А” 
PRINT VSS" FROM A “FRIGHTS(AS(K) LENCAS(K))~2) 

INPUT X$ 

PRINT "FOR A ";U$;" THE ANSWER WOULD BE "; 

INPUT A$ 

ASSLEFT$(AS,1): IF A$<>°Y" AND AS<>°N" THEN 280 

IF A$z"Y" THEN B$s"N* 

IF A$z"N* THEN B$z"Y" 

ZI=VAL(AS(0)) 

A$(0)=STR$(Z1+2) 

A$(71)=A$(K) 


360 
370 
380 
390 
400 
410 
415 
420 
430 
440 
430 
435 
460 
470 
475 
480 
490 
500 
505 
510 
520 
530 
600 
605 
510 
620 
624 
630 
640 
643 
630 
460 
470 
680 
999 


Тартысты 
A$(K)="AQ"+X$+"A+A$+STR$(Z1+1)+"A"2B9S+STR$(Z1)+"A" 
8070 120 

REM SUBROUTINE TO PRINT QUESTIONS 

QS=AS(K) 

FOR Z=3 TO LEN(OS) 

IF HEDS(O$,Z,1)<>"\" THEN PRINT HIDS(Q$,Z,1)32 NEXT Z 
INPUT C$ 

CS=LEFTS(CS,1) 

IF 69257 AND C$<>"N" THEN 410 

Tss" V" 0$ 

FOR X=3 TO LEN(OS)-1 

IF MID$(0$,X,2)-T$ THEN 480 

NEXT X 

STOP 

FOR Y=X+t TO LEN(OS) 

IF HIDS(O8,Y,f)="\" THEN 510 

NEXT Y 

STOP 

KzVALUSIDS (US, X42, Y-X-20) 

RETURN 

ВАТА "4","\QDOES IT SUIM\Y2\N3\", “\AFISH", "\ABIRD* 
PRINT: PRINT "ANIMALS I ALREADY KNOU ARE:" 

X=0 

FOR 1=1 TO 200 

IF LEFT$(A$(I),2) O" NA*. THEN 650 

PRINT TAB(12sX); 

FOR 2-3 TO LENCAS(E)) 

IF MEDS(AS(1),Z,1)0"\" THEN PRINT HIDSCASUD ,2,1)5: NEXT Z 
X=X+1: IF X>5 THEM Хаб: PRINT 

NEXT I 

PRINT 

PRINT 

8070 120 

END 


 Awari 


My Side 


6 5 4 3 2 
ооо | ооо | ооо [ооо | ооо 
Му 
Ноте 
ооо | ooo | ooo | ооо | ооо 
1 2 3 4 5 


Your Side 


Awari is an ancient African game 
played with seven sticks and thirty-six 
stones or beans laid out as shown 
above. The board is divided into six 
compartments or pits on each side. In 
addition, there are two special home 
pits at the ends. 

A move is made by taking all of the 
beans from any (non-empty) pit on 
your own side. Starting from the pit to 
the right of this one, these beans are 
'sown' one in each pit working around 
the board anticlockwise. 

A turn consists of one or two moves. 
If the last bean of your move is sown in 
your own home you may take a second 
move. 

If the last bean sown in a move lands 
in an empty pit, provided that the 
opposite pit is not empty, all the beans 
in the opposite pit, together with the 
last bean sown are 'captured' and 
moved to the player's home. 

When either side is empty, the game 
is finished. The player with most beans 
in his home has won. 

In the computer version, the board is 
printed as 14 numbers representing the 
14 pits. 

33338333 
0 0 
333333 


The pits on your (lower) side are 
numbered 1-6 from left to right. The 
pits on my (the computer's) side are 
numbered from my left (your right). 

To make a move you type in the 
number of a pit. If the last bean lands in 
your home, the computer types 
‘AGAIN?’ апа you then type in your 
second move. 

The computers move is typed, 
followed by a diagram of the board in 
its new state. The computer always 
offers you the first move. This is 
considered to be a slight advantage. 

There is a learning mechanism in the 
program that causes the play of the 
computer to improve as it plays more 
games. 

This version of Awari is adopted from 
one originally written by Geoff Wyvill of 
Bradford, Yorkshire, England. 


ооо 
Your 
Home 
ооо 
61 


AUARI 


CREATIVE CONPUTING MORRISTOWN, NEU JERSEY 


HY HOVE IS 2 
з 4 4 4 Q 4 
0 i 
3 3 3 3 0 4 


YOUR HOVE? 4 


HY КОЧЕ 15 4 
0 35 0 0 0 4 
6 7 
0 4 4 0 1 5 


YOUR MOVE? 3 


6 8 
0 4 0 1 2 4 
AGAIN? 5 
0 5 0 0 0 4 
6 9 
0 4 0 1 0 7 
HY HÜVE IS 3 
t 0 0 0 0 4 
? 9 
t 5 1 го ? 


YOUR HOVE? 2 


AGAINT 3 


НҮ HOVE IS 6,1 

° 1 Í 1 
8 

1 0 0 3 


YOUR HOVE? 5 


6: 1 1 
8 
t 0 90 3 
AGAIN? 4 
0 1 1 1 
ü 
1 0 0 O 
HY HOVE IS 5 
9 0 1 1 
10 
0 0 0 0 


YOUR HOVE? 4 


t 0 2 2 
i1 
1 0 0 0 
HY HOVE IS 4,4 
0 1 0 2 
14 
0 0 0 0 


YOUR HOVE? 5 


ото 2 
14 
0 0 0 0 
GAME OVER 


YOU WIN BY 3 POINTS 


3 3 3 3 
0 
3 3 3 3 
YOUR HOVE? 


BREAK IN 110 


10 


7 


5 PRINT TAB(34);"AWARI" 

7 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
10 DATA 0 

15 DIM B(132,60132,FCGO READ Н 

20 PRINT:PRINT:ESO 

25 РОКІ=0 TO 12:B(I)-3:NEXT I 

30 C=0:F(N)s=0:B(13)=0:B(6)=0 

35 GOSUB 500 

40 PRINT "YOUR HOVE";:G05UB 110 

45 IF E=0 THEN 80 

50 IF H-H THEN GOSUB 100 

385 IF Е-0 THEN 80 

60 PRINT "HY HOVE IS "::GÜSUB 800 

65 IF E=0 THEN BO 

70 IF НеН THEN PRINT °,"3:GOSUB 800 

75 IF E»0 THEN 35 

80 PRINTsPRINT"GANE OVER" 

85 D=B(6)-B(13):IF 050 THEN PRINT "I WIN BY";-D; "POINTS":G0TO 20 
90 NzN*í:IF р=0 THEN PRINT "DRAUN GAHE":GOTO 20 
95 PRINT “YOU ШІН BY";D;"POINTS":G0TO 20 

100 PRINT "AGAIN"; 

110 INPUT H:IF H<? THEN IF M»0 THEN MzH-1:80T0 130 
120 PRINT "ILLEGAL НОМЕ" :В0ТО 100 

130 IF B(M4):0 THEN 120 

140 dH-6:608UB 200 

150 8010 500 

200 K=H:GOSUB 600 

205 E=0zIF K>4 THEN KsK-7 

210 С=С+1:1Р С<9 THEN ЕСН) SF (D &64K 

215 FOR 1=0 TO 5:1F B(I)O0 THEN 230 

220 NEXT I 

225 RETURN 

230 FOR 1=7 TO 12:1F B(I)400 THEN EZT:RETURN 
235 GOTO 220 

500 PRINT:PRINT" *; 


505 
510 
515 
520 
525 
530 
535 
580 
585 
600 
605 
610 
615 
420 
625 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
860 
870 
875 
880 
885 
890 
900 
999 


FOR 1*12 ТО 7 STEP -1:005/8 580 
WEXT 1 

PRINT:I=13:605UB 580 

PRINT * 

FOR 1:0 Т0 5:G0SUB 580 
NEXT I 

PRINTSPRINTsRETURN 

IF B(1)<10 THEN PRINT " "+ 
PRINT BCI); sRETURN 

P=B(M) BCH) =0 

FOR Р=Р TO Í STEP -1:Н=Н+1:1Р M>13 THEN H-H-14 

BID SBOD1:NEXT P 

IF B(H)=1 THEN IF HO 6 THEN IF HO13 THEN IF BC12-H) 0 THEN 425 
RETURN 

B(H)=B(H)+B(12-M)+1:B(M)=0:B(12-B)=0:RETURN 

Ds=99;H=13 

FOR 1-0 TO 13:0(1)=В(1):МЕХТ I 

FOR J=7 TO 12:1F В(.Ј)=0 THEN 885 

6:0:H8-J1808UB 600 

FOR Iz0 TO SsIF B(I)=Q THEN 845 

L=B(I)+I;R=0 

IF 1213 THEN LsL-14:R-1:8010 830 

IF B(L)=0 THEN IF L<>ó THEN IF 15213 THEN R=B(12-L)+R 

IF R>Q THEN G-R 

NEXT I 

0ü=B(13)-B(6)-Q:IF COB THEN 875 

K=J:IF K>4 THEN KsK-7 

FOR 1:0 TO N-1:1F F(NDSASKSINT(E(I1/6^(7-C)9.1). THEN 0=0-2 

NEXT I 

FOR 1:0 TO 13:B(I 
IF ü>=D THEN A=J: 
WEXT J 

M=ASPRINT CHR$(42+H);:6010 200 
FOR 1:0 TO N-1:PRINTBCID:NEXT I 


"SPRINT В(ӨЗІРКІНІ "у 


)=G(I)D:NEXT I 
p=Q 


END 


In this game, the computer picks a 3- 
digit secret number using the digits Oto 
9 and you attempt to guess what it is. 
You are allowed up to twenty guesses. 
No digit is repeated. After each guess 
the computer will give you clues about 
your guess as follows: 


PICO One digit is correct, but in 
the wrong place 

FERMI One digit is in the correct 
place 

BAGELS No digit is correct 


You will learn to draw inferences 
from the clues and, with practice, you'll 
learn to improve your score. There are 
several good strategies for playing 
Bagels. After you have found a good 
strategy, see if you can improve it. Or 
try a different strategy altogether and 
see if it is any better. While the program 
allows up to twenty guesses, if you use 
a good strategy it should not take more 
than eight guesses to get any number. 

The original authors of this program 
are D. Resek and P. Rowe of the 
Lawrence Hall of Science, Berkeley, 
California. 


BAGELS 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


WOULD YOU LIKE THE RULES (YES OR NO)? YES 


1 AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS 


NY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOUS: 


PICO ~ ONE DIGIT CORRECT BUT IN THE WRONG POSITION 
FERHI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION 


BAGELS - NO DIGITS CORRECT 


D.K. I HAVE А NUMBER IN MIND. 


GUESS 8 1 7 323 GUESS # 1 T 456 
FERHI PICO 
GUESS # 2 ? 224 GUESS # 2 3 123 
PICO FERHI FERNI 
GUESS # 3 ? 14? 
КЕЕН FER ? 82? YOU GOT IT!!! 
FERMI FERNI it! 
GUESS # 4 7 922 
FERMI FERMI PLAY AGAIN (YES OR ND)? YES 
YOU Got un "4 Q.K. I HAVE A NUMBER IN MIND. 
GUESS @ 1 ? 159 
BAGELS 
. )? YES 
PLAY AGAIN (YES QR NO GUESS 4 2 120 
E Pica 
0.К. 1 HAVE A NUMBER IN MIND. GUESS w 3 1 328 
GUESS # 1 7 982 ә 
GUESS. GUESS AA ? 4⁄4 
PICO 2 te PICO FERMI — — 
GUESS ú 3 1 236 GUESS # 5 1 407 
PICO FERNI 
PICO PICO 
GUESS # 4 1 613 GUESS # á ? 240 
PICO PICO FERHI 
GUESS W 5 ? 327 GUESS d 7 т 704 
PICO PICO 
FERHI FERHI 
GUESS # 8 ? 406 
GUESS # 6 ? 328. 
PICO PICO FERMI 
FERMI FERMI 
GUESS W 9 7 404 
GUESS # 7 ? 329 
FERMI FERMI PICO PICO PICO 
GUESS H 10 7400 


GUESS W 8 ? 325 


i 
YOU GOT 17111 You Gor IT! 


PLAY AGAIN (YES OR NO)? NO 


PLAY AGAIN (YES OR NO)? YES 


ñ 4 POINT BAGELS BUFF!! 


0.K. I HAVE A NUMBER IN HIND. HOPE YOU HAD FUN. 


BYE. 


SP 
10 

15 

20 

25 

30 

40 

50 

70 

90 

109 
119 
120 
130 
140 
150 
189 
165 
170 
180 
190 
200 
210 
220 
230 
240 
243 
350 
280 
270 
280 
285 
290 
295 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
505 
520 
530 
540 
945 
550 
580 
570 
580 
590 
600 
605 
610 
615 
420 
630 
650 
680 
680 
690 
790 
720 


RINT TAB(33);"BAGELS" 
PRINT TAB(15);"CREATIVE COMPUTING  HORRISTUUN, NEW JERSEY" 
REM *** BAGLES NUMBER GUESSING GAME 
КЕН *** ORIGINAL SOURCE UNKNOWN BUT SUSPECTED TU BE 
ВЕН өзе LAURENCE HALL OF SCIENCE, U.C. BERKELY 
DIM A106) ,ACD,BGD 
120112255 
PRINTsPRINTSPRINT 

INPUT “WOULD YOU LIKE THE RULES (YES OR ND)';4$ 
IF LEFTS(AS,1)="N" THEN 150 

PRINT;PRINT "I AM THINKING OF A THREE-DIGIT NUMBER. TRY TO GUESS" 
PRINT "MY NUMBER AND I WILL GIVE YOU CLUES AS FOLLOUS:" 
PRINT " PICO  - ONE DIGIT CORRECT BUT IN THE WRONG POSITION" 
PRINT ” FERMI - ONE DIGIT CORRECT AND IN THE RIGHT POSITION" 
PRINT “ BAGELS - WO DIGITS CORRECT" 

FOR I=1 TO 3 

ACLSINT(108RND (1)? 

IF 1-1=0 THEN 200 

FOR J=1 TO 1-1 

IF A(1)56(J) THEN 140 

НЕХТ J 

NEXT 1 

PRINT:PRINT "O.K. I HAVE A NUMBER IN MIND." 

FOR 1=1 TO 20 

PRINT "GUESS #51, 

INPUT A$ 

IF LER(A$)O 3. THEN 630 

FÜR 251 TO 3:81(2)-ASC (HIDS (A$, 2, 1 D) :NEXT. Z 

FOR Jet TO 3 

IF A1(J)448 THEN 300 

IF 81(J)252 THEN 300 

B(J)=A1(J)-48 

NEXT J 

8070 320 

PRINT "UHAT?" 

GOTO 230 

IF B(1)=B(2) THEN 450 

IF B(2)-B(3) THEN 650 

IF B(3)=B(1) THEN 450 

С=0:0=0 

FÜR J=1 TO 2 

IF A(J)<5B(J+1) THEN 390 

cect 

IF ACJF1)O BCJ). THEN 410 

себ 

NEXT J 

IF AG) OB). THEN. 440 

cect 

IF АСЗ) 801) THEN 440 

С=С+1 

FOR Ј=1 TO 3 

IF A(J)<5B(J) THEN 490 

D=D+1 

NEXT J 

IF D=3 THEN 480 

IF C=0 THEN 545 

FOR J=i TO C 

PRINT "PICO *; 

NEXT J 

IF D-0 THEN 580 

FOR J=1 10 D 

PRINT "FERHI "; 

NEXT J 

IF C+D<>0 THEN 600 

PRINT "BAGELS"; 

PRINT 

NEXT I 

PRINT “OH WELL" 

PRINT "THAT^S TUENTY GUESSES. MY NUMBER WAS"; 100%A(1)410#A(2}4A(3) 
GOTO 700 

PRINT "TRY GUESSING A THREE-DIGIT HUHBER.":GOTO 230 
PRINT “OH, I FORGOT TO TELL YOU THAT THE NUMBER I HAVE IN HIND" 
PRINT “HAS NO TUO DIGITS THE SAME.":G0TU 230 

PRINT “YOU GOT ITI! I";PRINT 

үгүні 

INPUT "PLAY AGAIN (YES OR NO)";A$ 

IF Ass"YES" THEN 150 

IF Y=0 THEN 250 

PRINT;PRINT "A";Y;"POINT BAGELS BUFF IE" 

PRINT “HOPE YOU HAD FUN. BYE." 

END 


Banner 


This program creates a large banner 
on a terminal of any message you 
input. The length of the message may 
be as long as a string variable permits 
in your version of BASIC. The letters 
may be any dimension you wish 
although the letter height plus distance 
from left-hand side should not exceed 
6 inches. Experiment with the height 
and width until you get a pleasing 
effect on whatever terminal you are 
using. The permissable letters and 
characters are defined in the data 
statements 899 through 940. 

Many people seem to have trouble 
getting this program to work, however, 
after thorough checking we guarantee 
that the version presented have runs 
correctly. We suspect the problem is 
dependent upon the Basic itself and 
the way it reads and restores data files. 

This program was written by 
Leonard Rosendust of Brooklyn, New 
York. 


CREATIVE COMPUTING NORRISTOWN, NEU JERSEY 


10 INPUT "HORIZONTAL";X 

20 INPUT "VERTICAL" ;Y 

21 INPUT "CENTEED";Lf 

22 6120: IF L$5"P" THEN бізі 
23 

23 


INPUT "CHARACTER (TYPE "ALL" IF YOU WANT CHARACTER BEING PRINTED)";MS 


PRINT "STATEMENT"; 
30 INPUT AS 
35 INPUT "SET PAGE" ;O$ 
40 ANASC(LEFT$(A$,1)) 
50 REM 
60 КЕН 
70 FOR Із! TO LEN(A$) 
80 P$3HID$(CA9, T, 0) 
90 FÜR 0-1 TO 50 


95 READ 5%,8(1),5(2),8(3),5(4),5(5),5(6),5(7) 


96 IF Рез" * THEN 812 

100 IF P$-8$ THEN 200 

120 НЕХТ 0 

200 RESTORE 

201 X$=H$ 

202 IF H$-"ALL" THEN X$=S$ 
205 FOR U-1 TO 7 

210 FOR K=8 TO 0 STEP ~i 
230 IF 2°K<S(U) THEN 270 
240 Ј(9-К)=0 

250 0070 280 

270 J(9-K)=f: S(U)=S(U)-2"K 
272 IF S(U)=1 THEN 815 

280 NEXT K 


448 

447 

450 

460 

465 

470 

500 
510 
520 
530 
600 
620 
630 
700 
750 
800 
804 
810 
812 
813 
815 
899 
900 
901 

902 
903 
904 
905 
906 
907 
908 
907 
910 
911 

912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
9% 
931 

932 
933 
934 

935 
936 
932 
938 
939 
940 


FOR T1=1 TO X 

PRINT TAB((63-4.5%Y)*61/(LEN(X$))+1); 
FOR В=1 TO FUN 

IF J(B)=0 THEN 500 

FOR I=l TO Ys PRINT X$;: NEXT I 

GOTO 600 

FOR 1=1 TO Y 

FOR 11=1 TO LEN(X$) 

PRINT " "š: NEXT 11 

NEXT I 

NEXT B 

PRINT 

NEXT TI 

NEXT U 

FOR Hal TO 2eX: PRINT: NEXT H 

НЕХТ T 

FOR Hei ТО 75: PRINT: NEXT H 

END 

FOR H=1 TO 79: PRINT: NEXT H 

8070 800 

F(U)s9-K: GOTO 445 

DATA " “,0,0,0,0,0,0,0 

DATA "A",505,37,35,34,35,37, 505 

DATA "G",125,131,258,258,290, 143,101 
DATA "E”,512,274,274, 274,274,258, 258 
DATA "1*,2,2,2,512,2,2,2 

DATA "U*,254,257,129,65,129,257 256 
DATA “L",512,257,257, 257,257 257, 257 
DATA "S",6%,139,274,274,274, 163,69 
DATA “O", 125,131, 258,258,258, 131,125 
DATA "N",512,2,9,12,33,123,512 

DATA "F",512,18,18,18,18,2,2 

DATA "K",512,17,17,41,69, 131,258 
DATA "B",512,274,274,274,274,274,239 
DATA "D",512,256, 258,258,258, 131,125 
DATA "H*,512,12,17,17,12,17,512 

DATA "H",512,7,13,25,13,7,512 

DATA "1",5,3,2,354,18,11,5 

DATA "U",128,129,257,257,257,129 ,128 
DATA "R",512,18,18,50,82,146,271 
рата "P",512,18,18,18,18,18, 15 

DATA "0",125,131,258,258,322,131,381 
DATA "ү",8,9,17,481,17,9,8 

DATA "",64,65,129,257,129,65,64 
DATA "X",388,69,41,17,41,69,388 

DATA "2",386,322,290,274,266,252,260 
DATA *1",258,258,258,512,258,258,258 
DATA "E",125,131,258,258,258, 131,69 
DATA "J", 65,127,257, 257,257,129, 128 
DATA “1",0,0,261,259, 512,257,257 
DATA "2",261,387,322,290 274,267,261 
DATA "$7,69,41,12,512,17,41,49 

DATA "3", 66,130, 258,274,266, 150,100 
DATA “4",33,49,41,37,35,512, 33 

DATA "5", 160,274,274, 274,274,274, 226 
DATA "6",194,291,293,297,305, 289,193 
DATA "2,258,130,66,34,18,10,8 

DATA "A", 69,171,274, 274,274, 171,49 
DATA "9",263,138,74,42,26,10,7 

DATA “=",41,41,41,41,41,41,41 

DATA *1*,1,1,1,384, 1, 1,1 

DATA "0",52,69,131,258,131,69,57 
DATA ".",1,1,129,449,129, 1,1 


1000 STUP 
1002 END 


33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33313 
33333 33333 33333 


333333333333333333333333333333333333333333333 
333333333333333333333333333333333333333333333 
333333333333333333333333333333333333333333333 


AAAAAARAAAARARAAAAAAAAAAAAAAAA 
AAAAAAAARAAAAAANBAAAANAAARAAAA 
ADAAAAAAAAAADAAAAARAMAAAAAAA 


маға 
мам 
Мама 
тала 
ЗАЛАА 
AAA 
МАЛА 
АА 
AAAAK 
AAA 
амал 
тама 
ШЫ 
жала 
MAASAAANAMANARAAARAAAAAAAAAAA 
МАМААЛМАЛАНҒАМААЛЛА ҚАЛАЛАРДА, 
AANARAAAAADAANAANARAAARAARAADA 
пп 11111 
11111 HI 
шп 11111 
пи 11111 
шп шп 
шп ши 
ши п 
шип ши 
шп ши 


111111111111111111111111111111111111111111111 
111111111111111111111111111111111111111111111 
111111111111111111111111111111111111111111111 


33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
33333 33333 33333 
333333333333333333333333333333333333333333333 иш 
333333333333333333333333333333333333333333333 iun 
333333333333333333333333333333333333333333333 m 
ши 
иш 
шн 
иш 
иш 
TT nn nu 
Беннинин un ТҮТТТТТТЕНТТТТТТТТІТТЕГТЕТТІТТЕГІТТТІТІ 
MAMMA п LUAU ышын 
anas me жанан шшш 
иш 
annia vayan "m" иш 
yan mm way in 
m ТЕТІ иш 
жизн» Wa ұйы un 
К ТЕГІ rm 
nnn nonni i 
me ТТТ иш 
n annis in 
Mmm mm 
mm mm 
өзіні vun 
Mo ваних 
asus nnn 
rom rom 
нон нні VIVVHIWIWIWEVEVE VV VI VV Y 
Muguuguuyuuuuuwuuwuuwuwyuusquyuupuuyuuquuuuyusu ААДА 
VIVUVEYVUVVVEVVUVEVUVVVVVUVUV 
verov vee 
узуу wow 
"y Moo 
ve ТИ 
МИ vet 
33335 33333 vere n MM 
22223 39399 viv Ww 
35335 32323 vovv "v 
33322 33335 vovv MM 
33335 33335 ыы үү 
32223 23323 wou wey 
33333 22222 Уууу 
23233 33333 vyw vues 
33333 32323 wove weve 
vivo wu 
33223 23323 
39939 $5 VWVVVVUVVUVUV VU уун ууун уузу уу 
39909 39332 VVUVUVVVEVVVEVVVVVV VV VV VV 
ор E VIVUVVUVEVEVVVUVUVVVUYUUVEVVUV 
23223 39922 
23233 29222 
32222 39999 
33123 32293 
33335 32223 


33333323323222322332222222 


2233332333233333233323333 
3333333333333333333333333 


шп Ini 
11111 Iu 
ишп п 
11111 HII 
шп ши 
ши пп 
11111 шп 
шп шп 
шп ши 


————————— P 


HORIZONTAL? 3 
VERTICAL? 5 


CENTERED? Н 


CHARACTER (TYPE “ALL” IF YOU WANT CHARACTER BEING PRINTERT ALL 


STATEMENT? CREATIVE 


SET PAGE? 


11 


Basketball 


This program simulates a game of 
basketball between Dartmouth College 
and an opponent of your choice. You 
are the Dartmouth captain and control 
the type of shot and defense during the 
course of the game. 

There are four types of shots: 
1. Long Jump Shot (30 ft.), 2. Short 
Jump Shot (15 ft.), 3. Lay Up, and 
4. Set Shot. Both teams use the same 
defense, but you may call it: Press (6), 
Man-to-man (6.5), Zone (7), or None 
(7.5). To change defense, type "0" as 
your next shot. 

Note: The game is biased slightly in 
favor of Dartmouth. The average 
probability of a Dartmouth shot being 
good is 62.95% compared to a 
probability of 61.8596 for their oppo- 
nent. (This makes the sample run 
slightly remarkable in that Cornell won 
by a.score of 45 to 42. Hooray for the 
Big Red!) 

Charles Bacheller of Dartmouth 
College was the original author of this 
game. 


BASKETBALL 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


Lay UP. 
SHÜT IS MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 

LAY UP. 

SHOT IS 6000. TWO POINTS, 
SCORE; 4 TO 1 


LAY UP. 
SHOT IS MISSED. 
DARTMOUTH CONTROLS THE REBOUND. 


LaY UP. 
SHOT IS MISSED. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 4 

SET SHOT. 

SHOT 15 OFF THE КІН. 

CORNELL CONTROLS THE REBOUND. 


SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 
PASS BACK TO CORNELL GUARD. 


JUMP SHOT. 
SHOT IS OFF КІН. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 
JUMP SHOT 
SHOT 15 600). 
SCORE: 6 TO 1 


SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 
PASS BACK TO CORNELL GUARD. 


Later in the game .... 


YOUR SHOT? 4 

SET SHOT. 

SHOT IS 0000. TUO POINTS. 
SCORE: 37 ТО 39 


JUNP SHOT. 
SHOT IS GOOD. 
SCORE: 37 [0 41 


YOUR SHOT? 2 

«ШЕР SHOT 

SHOT I5 OFF TARGET. 

DARTHOUTH CONTROLS THE REBOUND. 


BALL PASSED BACK TO YOU. YOUR SHOT? 1 


«ШЕР SHOT 


SHOT IS BLOCKED. BALL CONTROLLED BY DARTMOUTH. 


YOUR SHOT? 2 
JUMP SHOT 
SHOOTER IS FOULED, TWO SHOTS. 


SHOOTER HAKES ONE SHOT AND MISSES ONE. 


SCORE: 38 TO 41 


JUMP SHOT. 
SHOT IS OFF КІН. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 
LAY UP. 
SHOT BLOCKED. CORNELL'S BALL. 


JUMP SHOT. 
SHOT IS OFF RIN. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 

LAY UP. 

SHOT IS GOOD. TWO POINTS. 
SCORE: 40 TO 4t 


THIS IS DARTMOUTH COLLEGE BASKETBALL. YOU WILL BE DARTHOUTH JUHP SHOT. 
CAPTAIN AND PLAYMAKER. CALL SHOTS AS FOLLOUS: 1. LONG SHOT IS OFF КІН. JUHP SHOT, 
(30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LAY DARTMOUTH CONTROLS THE REBOUND. PLAYER FOULED. TUO SHOTS. 
UP; 4. SET SHOT. BOTH SHOTS HISSED. 
BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE 45 YOUR SHOT? 4 SCORE: 40 TO 41 
FOLLOUS: 48. PRESS; 4.5 MAN-TO MAN; 7. ZONE; 7.5 NONE. SET SHOT. 
TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT. SHOOTER FOULED. TWO SHOTS. YOUR SHOT? 3 


YOUR STARTING DEFENSE WILL BEY 7 


CHOOSE YOUR OPPONENT? CORNELL 
CENTER JUMP 
CORNELL CONTROLS THE TAP. 


«ШЕР SHOT. 
SHOT IS OFF КІМ, 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

«ШЕР SHOT 

SHOOTER IS FOULED. TUO SHOTS. 
SHOOTER MAKES BOTH SHOTS. 
SCORE: 2 Т0 0 


SET SHOT. 
SHOT 15 MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

JUMP SHOT 

SHOT IS OFF TARGET. 
REBOUND TO CORNELL 


JUMP SHOT. 

PLAYER FOULED. TUO SHOTS. 

SHOOTER MAKES ONE SHOT AND MISSES ONE. 
SCORE: 2 T0 1 


YOUR SHOT? 1 
JUMP SHOT 
CHARGING FOUL. DARTMOUTH LOSES BALL. 


SHOOTER WAKES BOTH SHOTS. 
SCORE: 8 TU 1 


JUMP SHOT. 
SHOT IS OFF RIM. 
DARTMOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 2 

JUHP SHOT 

SHOT IS OFF TARGET. 
REBOUND TO CORNELL 


LAY UP. 
SHOT IS MISSED. 
DARTHOUTH CONTROLS THE REBOUND. 


YOUR SHOT? 3 

LAY UP. 

SHOOTER FOULED. TWO SHOTS. 
SHOOTER KAKES BOTH SHOTS. 
SCORE: 10 TO 1 


SET SHOT. 

SHOT IS MISSED. 

CORNELL CONTROLS THE REBOUND. 
SET SHOT. 

SHOT IS 680D. 

SCORE: 10 Ta 3 


YOUR SHOT? 1 
JUMP SHOT 

SHOT IS GOOD. 
SEORE: 12 TO 3 


12 


LAY UP. 
SHOT BLOCKED. CORNELL” S BALL. 


JUMP SHOT. 
SHOT IS GOOD. 
SCORE: 40 TO 43 


YOUR SHOT? 2 

JUMP SHOT 

SHOT 18 OFF TARGET. 
REBOUND TO CORNELL 


SET SHOT. 
SHOT 15 GOOD. 
SCORE: 40 70 45 


YOUR SHOT? 2 

JUMP SHOT 

SHOT IS OFF TARGET. 

DARTMOUTH CONTROLS THE REBOUND. 


BALL PASSED BACK TO YOU. YOUR SHOT? 


SET SHOT. 
SHOT IS 6000. TWO POINTS. 
SCORE: 42 TO 45 


LAY UP. 

SHOT IS MISSED. 

DARTHOUTH CONTROLS THE REBOUND. 
YOUR SHOT? 3 


*** vr END OF GAME жж 


FINAL SCORE: DARTHQUTH 42 CORNELL 45 


5 PRINT TAB(31);° BASKETBALL" 
7 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
B PRINT:PRINT:PRINT 


10 PRINT "THIS IS DARTHOUTH COLLEGE BASKETBALL. YOU WILL BE DARTMOUTH" 
20 PRINT " CAPTAIN AND PLAYHAKER. CALL SHOTS AS FOLLOWS: 1. LONG" 

30 PRINT " (30 FT.) JUMP SHOT; 2. SHORT (15 FT.) JUMP SHOT; 3. LAY" 

40 PRINT “ UP; 4. SET SHOT." 

60 PRINT “BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS" 

70 PRINT “FOLLOWS: 6. PRESS; 6.5 HAN-TO MAN; 7. ZONES 7.5 NOME." 

72 PRINT " TO CHANGE DEFENSE, JUST TYPE 0 AS YOUR NEXT SHOT.“ 

76 INPUT "YOUR STARTING DEFENSE WILL BE";D:IF DX& THEN 2010 

79 PRINT 

80 INPUT "CHOOSE YOUR OPPONENT" ;0$ 

370-РЕІНТ "CENTER JUMP" 1308 IF 2-0 THEN 2010 

390 IF RND(1)> 3/5 THEN 420 1310 IF 723 THEN 1700 

400 PRINT 0$;" CONTROLS THE ТАР." 1320 PRINT "LAY UP." 

410 GOTO 3000 1330 IF 7/DeRND(1)>.4 THEN 1360 

420 PRINT “DARTMOUTH CONTROLS THE ТАР." 1340 PRINT “SHOT IS 6000. TWO POINTS." 

s ra PEE. 

439 т YOUR SHOT";2 1360 IF 2/D*RNDC1)2.7 THEN 1500 

445 IF ZOINT(Z) THEN 455 1370 PRINT “SHOT IS OFF THE RIM." 

446 IF 2X0 OR Z>4 THEN 455 1380 IF RNDC1)22/3 THEN 1415 

447 GOTO 460 1390 PRINT 0$;" CONTROLS THE REBOUND.“ 

455 PRINT “INCORRECT ANSWER. RETYPE IT. ";:BOTO 430 

460 IF RND(1)<.5 THEN 1000 1400 GOTO 3000 

480 IF Т<100 THEN 1000 1415 PRINT "DARTHOUTH CONTROLS THE REBOUND." 

490 PRINT 1420 IF RND(1)>.4 THEN 1440 

491 IF S(1)5(0). THEN 510 1420 8070 1300 

492 PRINT *" өжезе END OF SECOND HALF sexa" 1440 PRINT “BALL PASSED BACK TO YOU."; 

493 PRINT "SCORE AT END OF REGULATION TIME:" 1450 GOTO 430 

494 PRINT " DARTHOUTH*;S(1)50$;800) 1500 IF 2/D*RND(1)2.875 THEN 1400 

495 PRINT 1510 PRINT “SHOOTER FOULED. TUO SHOTS." 

496 PRINT "BEGIN TUO MINUTE OVERTINE PERIOD" 1520 GOSUB 4000 

499 Т-93 1530 GOTO 3000 

500 GOTO 370 1500 IF 7/DeRND(1)>.925 THEN 1630 

510 PRINT " — #0808 END OF GAHE sx" 1610 PRINT “SHOT BLOCKED. ";09;""S BALL." 

515 PRINT "FINAL SCORE: DARTHOUTH";S(1);09;5 (0) 1620 5010 3000 

520 STOP 1630 PRINT “CHARGING FOUL. DARTHOUTH LOSES THE BALL." 

600 PRINT 1840 GOTO 3000 

610 PRINT * ees TUO MINUTES LEFT IN THE GAME t**" 1700 PRINT "SET SHOT.” 

420 PRINT 1710 GOTO 1330 

430 RETURN 2010 INPUT “YOUR NEW DEFENSIVE, ALIGNMENT IS";D 

1000 ON Z GOTO 1040,1040 2030 IF 0<6 THEN 2010 

1030 GOTO 1300 2040 GOTO 425 

1040 T=T+Í 3000 P=1 

1041 IF T-50 THEN 8000 3005 T=T+1 

1042 IF Та92 THEN 1046 3008 IF T=50 THEN 8000 

1043 GOTO 1050 3012 GOTO 3018 

1046 GOSUB 600 3015 60SUB 400 

1050 PRINT "JUMP SHOT" 3018 PRINT 

1060 IF RHD(1)2.34190/8 THEN 1090 3020 Z1-10/4YRNDCL)*1 

1070 PRINT "SHOT IS 600D." 3030 IF Z1>2 THEN 3500 

1075 GOSUB 7000 3040 PRINT "JUMP SHOT." 

1085 GOTO 3000 3050 IF 8/D*RND(1)2.35 THEN 3100 

1090 IF RND(I)2.682*0/8 THEN 1200 3060 PRINT “SHOT IS 600D." 

1100 PRINT “SHOT IS OFF TARGET." 3080 GOSUB 6000 

1105 IF D/6#RND(1)>.45 THEN 1130 3090 GOTO 425 

1110 PRINT “DARTMOUTH CONTROLS THE REBOUND.” 3100 IF B/D*RND(1)2.75 THEN 3200 

1120 GOTO 1145 3105 PRINT “SHOT IS OFF RIM." 

1130 PRINT "REBDUND TO ";0$ 3110 IF B/6#RND(1)>.5 THEN 3150 

1140 GOTO 3000 3120 PRINT "DARTHOUTH CONTROLS THE REBOUND." Б 
1145 IF RND(1)>.40 THEN 1158 3130 GOTO 425 4050 IF RND(1)>.75 THEN 4100 
1150 БОТО 1300 3150 PRINT 0$;" CONTROLS THE REBOUND.” 4060 PRINT “SHOOTER MAKES ONE SHOT AND MISSES ONE." 
1158 IF D=é THEN 5100 3160 IF D=á THEN 5000 4070 S(1-P)=S(1-P)+1 

1160 PRINT “BALL PASSED BACK TO YOU. "; 3148 IF RNDC1)>.5 THEN 3175 A080 GOTO 4040 

1170 GOTO 430 3168 PRINT “PASS BACK TO ";0$;" GUARD." 4100 PRINT “BOTH SHOTS MISSED." 
1180 IF RND(1)>.9 THEN 1190 3170 GOTO 3000 4110 GOTO 4040 

1185 PRINT "PLAYER FOULED, TWO SHOTS.“ 3175 GOTO 3500 S000 IF RND(1)>.75 THEN 5010 
1187 GOSUB 4000 3200 IF B/D*RND(1)>.9 THEN 3310 5005 GOTO 3145 

1188 GOTO 3000 3210 PRINT “PLAYER FOULED, TUO SHOTS." 5010 PRINT "BALL STOLEN. EASY LAY UP FOR DARTMOUTH.” 
1190 PRINT "BALL STOLEN. ";0$;"^S BALL." 3220 60508 4000 5015 60508 7000 

1198 GOTO 3000 3230 GOTO 425 5030 GOTO 3000 

1200 IF RND(1)2.782*0/8 THEN 1250 3310 PRINT "OFFENSIVE FOUL. DARTHOUTH’S BALL." 

1210 PRINT “SHOT IS BLOCKED. BALL CONTROLLED BY "; 3320 GOTO 425 5100 IF RNU(1)>.6 THEN 5120 
1230 IF RND(1)>.5 THEN 1242 3500 IF Z1>3 THEN 3800 5110 GOTO 1140 

1235 PRINT "DARTMOUTH." 3510 PRINT "LAY UP." 8120 PRINT "PASS STOLEN BY ";0$;" EASY LAYUP." 
1240 GOTO 430 3520 IF 7/D¥RND(1)>.413 THEN 3600 5130 GOSUB 5000 

1242 PRINT 0$;"." 3530 PRINT “SHOT IS GOOD." 5140 GOTO 425 

1245 GOTO 3000 3540 GOSUB 4000 4000 $(0)=5(0) +2 

1250 IF RND(1)>.843#D/8 THEN 1270 3550 GOTO 425 6010 PRINT "SCORE: ";8(1);" I0^;S(0) 
1255 PRINT “SHOOTER IS FOULED. TUO SHOTS." 3600 PRINT “SHOT IS MISSED." 6020 RETURN 

1240 GOSUB 4000 3810 GOTO 3110 7000 S(1)=S(1)+2 

1265 GOTO 3000 3800 PRINT “SET SHOT.” 7010 60508 8010 

1270 PRINT "CHARGING FOUL. DARTHOUTH LOSES BALL." 3810 GOTO 3520 7020 RETURN 

1280 GOTO 3000 4000 БЕН FOUL SHOOTING 8000 PRINT " sassa END OF FIRST HALF жәнен" 
1300 T=T+Í 4010 IF RND(1)5.49 THEN 4050 8010 PRINT "SCORE: DARTHOUTH";S(1);0$;S(0) 
1301 IF T=50 THEN 8000 4020 PRINT “SHOOTER HAKES BOTH SHOTS." 8015 PRINT 

1302 IF T-92 THEN 1304 4030 5(1-Р)=8(1-Р)+2 8016 PRINT 

1303 GOTO 1305 4040 GOSUB 6010 8020 6010 370 

1304 GOSUB 400 4041 RETURN 9999 END 
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Batnum 


The game starts with an imaginary 
pile of objects, coins for example. You 
and your opponent (the computer) 


alternately remove objects from the 200 PRINT 
pile. You specify in advance the 210 GOTO 330 
minimum and maximum number of 220 FOR 151 TO 10 
objects that can be taken on each turn. 20 M 
You also specify in advance how 330 INPUT “ENTER PILE SIZE";N 
winning is defined: 1. To take the last 350 IF N<>0 THEN 370 
object or 2. To avoid taking the last 360 GOTO 330 
object. You may also determine 370 1 MADE 220 
whether you or the computer go first. 390 INPUT "ENTER ШІН OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: ";H 
The strategy of this game is based on 410 IF Hal THEN 430 
modulo arithmetic. If the maximum 420 IF NO2 THEN 390 " 
number of objects a player may remove 49 UPUT ENTER Мін AND HAX "а,в 
in a turn is M, then to gain a winning 450 IF А<1 THEN 430 
position a player at the end of his turn НЫ i AOTT) THEN 450 
тізі Гуси dor T understand this. play 4% INPUT "ENTER START OPTION - 1 COMPUTER FIRST, 2 YOU FIRST ";S 
the game 23 Matches first, then BAT- 520 IF SO2 THEN 490 
NUM, and have fun! 530 C=A+B 
BATNUM is a generalized version of 540 ІР 5-2 ТИЕМ 570 
a great number of manual remove-the- $80 IF U=t THEN 220 
object games. The original computer 570 60508 810 
version was written by one of the two 580 IF U-1 THEN 220 
originators of the BASIC language, 390 8010 550 
John Kemeny of Dartmouth College. 610 IF Mz] THEN 630 
620 0:0-1 


630 IF M=1 THEN 480 
640 IF NDA THEN 720 


BATNUM 650 Wel 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 480 PRINT “COMPUTER TAKES";N;"AND LOSES." 
670 RETURN 
THIS PROGRAM IS A “BATTLE OF NUMBERS^ 680 IF НОВ THEN 720 
GAME, WHERE THE COMPUTER IS YOUR OPPONENT 690 Џ=1 
700 PRINT "COMPUTER TAKES";N;"AND WINS." 
THE GAME STARTS WITH AN ASSUMED PILE OF OBJECTS. 710 RETURN 
YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FRON 720 Pzü-C*INT(O/C) 
THE PILE. UINNING IS DEFINED IN ADVANCE AS TAKING THE 730 IF P>=A THEN 750 
LAST OBJECT OR NOT. YOU CAN ALSO SPECIFY SOME OTHER 740 Рга 
BEGINNING CONDITIONS. DON’T USE ZERO, HOWEVER, IN 790 IF P<=B THEN 770 
PLAYING THE GAME. 750 P=B 
270 Н=Н-Р 
ENTER PILE SIZET 23 780 PRINT "CONPUTER TAKES";P;"AND LEAVES";N 
ENTER UIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST: ? 2 790 u=0 
ENTER WIN AND МАХ 7 1,3 800 RETURN a 
ENTER START DPTION - 1 COMPUTER FIRST, 2 YOU FIRST ? 2 810 PRINT "YOUR MOVE "; 
Yue кін n 2 ші IPOD nex en 
MD 1 AND LEAVES 20 840 PRINT "I TOLD YOU NOT TO USE ZERO! COMPUTER WINS BY FORFEIT." 
COMPUTER TAKES 1 AND LEAVES 16 830 RETURN 
YOUR MOVE ? 3 
COMPUTER TAKES 1 AND LEAVES 12 870 IF P<>ENT(P) THEN 920 
COMPUTER TAKES 1 AND LEAVES 8 890 IF Р=Н THEN 960 
YOUR HOVE * З 0 ТЕ РЕВ THEN 940 
910 є 
АКШ 1 AND LEAVES 4 320 PRINT "ILLEGAL NOVE, REENTER IT "; 
930 GOTO 82 
COMPUTER TAKES 1 AND LOSES. 940 NEN-P 
950 IF NO0 THEN 1030 
960 IF M=1 THEN 1000 
10 PRINT TABGI3) ;"BATNUM" 970 PRINT "TOUGH LUCK, YOU LOSE." 
20 PRINT ТАВ(15) ;"CREATIUE COMPUTING  MÜRRISTQUN, NEU JERSEY" 980 Us1 
30 PRINT:PRINT:PRINT 990 RETURN 
110 PRINT "THIS PROGRAM IS A “BATTLE OF NUMBERS^" 1000 PRINT "CONGRATULATIONS, YOU UIN." 
120 PRINT "GAME, WHERE THE COMPUTER IS YOUR OPPONENT" 1010 Uz1 
130 PRINT 1020 RETURN 
140 PRINT "THE GAME STARTS WITH AN ASSUMED PILE OF OBJECTS.” 1030 IF N>=0 THEN 1060 
150 PRINT "YOU AND YOUR OPPONENT ALTERNATELY REMOVE OBJECTS FROM" 1040 N=N+P 
160 PRINT “THE PILE. WINNING IS DEFINED IN ADVANCE AS TAKING THE" 1050 6070 920 
170 PRINT “LAST OBJECT OR NOT. YOU CAM ALSO SPECIFY SOME OTHER" 1060 Uz0 
180 PRINT “BEGINNING CONDITIONS. DON T USE ZERO, HOWEVER, IN" 1070 RETURN 
190 PRINT “PLAYING THE GAME." 1080 END 
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Battle 


BATTLE is based on the popular 
game Battleship which is primarily 
played to familiarize people with the 
location and designation of points ona 
coordinate plane. 

BATTLE first randomly sets up the 
bad guys' fleet disposition on a 6 by 6 
matrix or grid. The fleet consists of six 
ships: Two destroyers (ships number 1 
and 2) which are two units long, two 
cruisers (ships number 3 and 4) which 
are three units long and two aircraft 
carriers (ships number 5 and 6) which 
are four units long. The program then 
prints out this fleet disposition in a 
coded or disguised format (see the 
sample computer print-out). You then 
proceed to sink the various ships by 
typing in the coordinates (two digits, 
each from 1 to 6, separated by a 
comma) of the place where you want to 
drop a bomb, if you'll excuse the 
expression. The computer gives the 
appropriate responses (splash, hit, 
etc.) which you should record ona6 by 
6 matrix. You are thus building a 
representation of the actual fleet dis- 
position which you will hopefully use to 
decode the coded fleet disposition 
printed out by the computer. Each time 
a ship is sunk, the computer prints out 
which ships have been sunk so far and 
also gives you a "SPLASH/HIT 
RATIO." 

The first thing you should learn is 
how to locate and designate positions 
on the matrix, and specifically the 
difference between "3,4" and "4,3." Our 
method corresponds to the location of 
points on the coordinate plane rather 
than the location of numbers in a 
standard algebraic matrix: the first 
number gives the column counting 
from left to right and the second 
number gives the row counting from 
bottom to top. 

The second thing you should learn 
about is the splash/hit ratio. "What isa 
ratio?" A good reply is "It'safractionor 
quotient." Specifically, the splash/hit 
ratio is the number of splashes divided 
by the number of hits. If you had 9 
splashes and 15 hits, the ratio would be 
9/15 or 3/5, both of which are correct. 
The computer would give this 
splash/hit ratio as .6. 
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The main objective and primary 
educational benefit of BATTLE comes 
from attempting to decode the bad 
guys' fleet disposition code. To dothis, 
you must make a comparison between 
the coded matrix and the actual matrix 
which you construct as you play the 
game. 

The original author of both the 
program and these descriptive notes is 
Ray Westergard of the Lawrence Hall 
of Science, Berkeley, California. 
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0123456 


BATTLE 


CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


THE FOLLOWING CODE OF THE BAD GUYS” FLEET DISPOSITION 


HAS BEEN CAPTURED BUT NOT DECODED: 


<А сл CR CA Ф Ф 


00226 
44460 
00600 
060 0 3 
10009 3 
90129003 


DE-CODE IT AND USE IT IF YOU CAN 
BUT KEEP THE DE-CODING METHOD A SECRET. 


START GAME 
71,1 

А DIRECT HIT ON SHIP NUMBER 4 
TRY AGAIN. 

74,1 

ñ DIRECT HIT ON SHIP NUMBER 3 
TRY AGAIN. 

t5, 

A DIRECT HIT ON SHIP NUMBER 3 


TRY AGAIN. 
74,41 
А DIRECT HIT ON SHIP NUMBER 3 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
50 FAR, THE BAD GUYS HAVE LOST 
0 DESTROYER(S), 1 CRUISER(S), AND 0 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO 15 0 
12, 
SPLASH! TRY AGAIN. 
11,2 
^ DIRECT HIT ON SHIP HUMBER 2 
TRY AGAIN, 
11,3 
A DIRECT HIT ON SHIP NUMBER 2 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
80 FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), 1 CRUISER(S), AND 0 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .166667 
13,7 
INVALID INPUT. TRY AGAIN. 
73,4 
А DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
1 4,6 
A DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
t 5,6 
A DIRECT HIT ON SHIP NUMBER 5 
TRY AGAIN. 
44,4 
A DIRECT HIT ON SHIP NUMBER 1 
TRY AGAIN. 
? 6,4 
A DIRECT HIT ON SHIP NUMBER 5 
AND YOU SUNK IT. HURRAH FÜR THE GOOD GUYS. 
80 FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), 1 CRUISER(S), AND 1 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .0909091 
7 3,4 
SPLASH! TRY AGAIN. 
7 2,2 
A DIRECT HIT ON SHIP NUMBER 6 
TRY AGAIN. 
13,3 
A DIRECT HIT ON SHIP NUMBER 8 
TRY AGAIN, 
1 4,4 
A DIRECT HIT ON SHIP NUMBER 6 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
50 FAR, THE BAD GUYS HAVE LOST 
1 DESTROYER(S), — 1 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .142857 
1 6,4 
YOU ALREADY PUT A HOLE IN SHIP NUMBER 1 AT THAT POINT. 
SPLASH! TRY AGAIN. 
75,5 
A DIRECT HIT ON SHIP HUMBER 1 
AND YOU SUNK IT. HURRAH FOR THE 0000 GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
2 DESTROYER(S), — 1 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YOUR CURRENT SPLASH/HIT RATIO IS .2 
7 2,3 
А DIRECT HIT ON SHIP NUMBER 4 
TRY AGAIN. 
T 2,4 
A DIRECT HIT ON SHIP NUMBER 4 
TRY AGAIN. 
12,5 
A DIRECT HIT ON SHIP NUMBER 4 
AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS. 
SO FAR, THE BAD GUYS HAVE LOST 
2 DESTROYER(S), 2 CRUISER(S), AND 2 AIRCRAFT CARRIER(S). 
YQUR CURRENT SPLASH/HIT RATIO IS .166667 


YOU HAVE TOTALLY UIPED OUT THE BAD GUYS” FLEET 
WITH A FINAL SPLASH/HIT RATIO OF .166547 


99%%609806%90%99%0%%9009%960%фә%%9 
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RINT ТАВ(33); "BATTLE" 
RINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
КЕН -- BATTLE URITTEN BY RAY WESTERGARD 10/70 
REM COPYRIGHT 1971 BY THE REGENTS OF THE UNIV. OF CALIF. 
REH PRODUCED AT THE LAWRENCE HALL OF SCIENCE, BERKELEY 
ВЕН DIN F(6,6),H(6,6),AC4)<BC4)  CEO LO 
FOR X=1 TO 6 
FOR Үзі TO 6 
F(X,Y)s0 
NEXT Y 
NEXT X 
FOR I=t TO 3 
Нг4-1 
FOR J=t TO 2 
ASINTCGSSRNDCTIS I) 

B=INT(á*RND(1)+1) 

Ds=INT(4*RND(1)+1) 

IF F(A,B)>0 THEN 90 

420 

ON D 60TO 150,340,550,740 

B(1)=B 

В(2)=7:В(3)=7 

FOR K=1 TÜ N 

IF mi THEN 240 

IF B(K)s6 THEN 230 

IF F(A,B(K)+1)>0 THEN 230 

BO D SBUO +1 

8070 280 

L LE: 

IF B(1)<B(2) AND. B(1)<B(3) THEN Z=B(1) 
IF B(2)4B(1) AND BC2)<B(3) THEN Z=B(2) 
IF B(3)<B(1) AND B(3)<B(2) THEN Z=B(3) 
IF Z=1 THEN 90 

IF F(A,Z-1)>0 THEN 90 

B(K+1)sZ-1 

NEXT K 

F(A,B)29-241-4 

FOR К=1 TO N 

F(A,BOG T) =F (A,B) 

NEXT K 

GOTO 990 

АС) зА 

B(1)=B 

A(2)=0:A(3)=0:B(2)=0:B(3)50 

FOR Kzi TO N 

IF МУТ THEN 460 

IF АСК) OR В(К)=1 THEN 450 

IF F(A(K)-1,B(K)-1)>0 THEN 450 

IF F(A(K)-1,B(K))>0 AND FCAOU-1,B CQ )9F (ACK) ,BOO-1). THEN 450 
A(K+1)=A(K)-1 

B(K+1)=B(K)-1 

GOTO 530 

Н=2 

IF А(1)›А(2) AND А(1)›А(3) THEN Zl=A(1) 
IF А(2)›А(1) AND AC2)>AC3) THEN 71=А(2) 
IF А(3)>А(1) AND А(3)>А(2) THEN. Z1=A(3) 
IF B(1)>B(2) AND В(1)›В(3) THEN 72=В(1) 
IF B(2)2BC1) AND B(2)>B(3) THEN 12а8(2) 
IF B(3)»2B(1) AND BCJ)2B(2) THEN Z23B(3) 
IF Z1=6 OR 2226 THEN 90 

IF FUZ14t,Z2+1)>0 THEN 90 

IF Ғ(11,1241320 AND F(Z1,Z2+1)=F(Z1+1,Z2) THEN 90 
А(К+1)=71+1 

BOCH 2241 

NEXT K 

6010 950 

АСА 

А(2) 27:03) «7 

FOR Кз} TO N 

IF M^! THEN 640 

IF A(K)=á THEN 830 

IF FCACK)+1,B)>0 THEN 630 

A(K+1)=A(K)+1 

GOTO 680 

1-22 

IF А(1)ХА(2) AND А(1ХА(З) THEN 2-А(1) 
IF А(2) <А(Т) AND AC2)<A(3) THEN 25402) 
IF АСЗ) <А(1) AND АСЗ) <А(2) THEN Z=A(3) 


IF 2-1 THEN 90 
IF F(I-1,B)50 THEN 90 

A(K+1)=Z-1 

NEXT K 

F(A,B)=9-201-J 

FOR K=} TO N 

САСКЕ) B)uF(A,B) 

NEXT K 

вото 990 

Аа 

В(1)=В 

А(2)=7:А(3)=7 

8(2)=0:В(3)°0 

FOR K=t TO N 

IF M»1 THEN 820 

IF A(K)=á OR B(K)=1 THEN 860 

IF F(AUO H ,BUO- 1020 THEN 840 

IF FCACK)#1,B(K))20 AND F(AOX ,BOODSFIA CO, BUO-1). THEN 860 
AUD SAO 

В(К+1)=В(К)-1 

80Т0 #40 

ГЕ 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


ТЕКТЕР 
ТЕКСТЕРІ 
ACCA) 
B(1)>B(2) 
B(2)>BU1) AND B(2)>B(3) 
B(3)>B(1) AND B(3)2B(2) 
1121 OR 22-6 THEN 90 

IF Р(11-1,12+1)>0 THEN 90 
IF F(11,22€1)20 AND F(Zt,Z2+1)=F(Z1-1,22) THEN 90 
A(K+1)=Z1-1 
B(K+1)=22+1 
NEXT K 
F(A, B)=9-281-J 
FOR Ket TO N 
FCACK#L) BOUT DD F (A,B) 
NEXT K 
NEXT J 

NEXT I 

PRINT 

PRINT "THE FOLLOWING CODE OF THE BAD GUYS’ FLEET DISPOSITION" 
PRINT “HAS BEEN CAPTURED BUT NOT DECODED:" 

PRINT 

FOR I=} Т0 6 

FOR J=} TO 6 

BU, DFi, I) 

НЕХТ J 

NEXT I 

FÜR 1=1 TO 6 

FOR J=1 TO é 

PRINT HCL,D; 

NEXT J 

PRINT 

НЕХТ 1 

PRINT 

PRINT "DE-CODE IT AND USE IT IF YOU CAN" 

PRINT "BUT KEEP THE DE-CODING HETHOD A SECRET." 

PRINT 


AND 
AND 
AND 
AND 


ACOOXAG) 
А(2)<А(3) 
А(3)<А(2) 
B(1)>B(3) 


THEN 2141) 
THEN Z1=A(2) 
THEN 21=4(3) 
THEN Z2=B(1) 
THEN Z2=B(2) 
THEN Z2=B(3) 
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1 
1 
HC, J)=0 
NEXT J 

NEXT I 

FOR 1=1 TO 3 

L(1)=0 

NEXT I 

C(1)=2:C(2)52 

МЕЗЕТІ 

с(51-0:С(6140 

3=0:Н=0 

PRINT "START GAME" 

INPUT X,Y 

IF X€t OR X>6 QR INT(X)<2ABG(X) THEN 1210 
IF 320 AND Y<? AND INTCYD=ABS(Y) THEN 1230 
PRINT "INVALID INPUT. TRY AGAIN." 

вота 1180 

R=7-Y 

cx 

IF F(R,C)20 THEN 1290 

Sai 

PRINT "SPLASH! 
вото 1180 

IF CIF(R,C))<4 THEN. 1340 

PRINT "THERE USED TO BE A SHIP AT THAT POINT, BUT YOU SUNK IT." 
PRINT "SPLASH! TRY AGAIN." 

8:841 

GOTO 1180 

IF H(R,C)>0 THEN 1420 

H=H+1 

H(R,C)=F(R,C) 

PRINT “A DIRECT HIT ON SHIP NUMBER ";F(R,C) 
C(F(R,C))=C(F(R,C))+1 

IF C(F(R,C))294 THEN 1470 

PRINT "TRY AGAIN." 

GOTO 1180 

PRINT “YOU ALREADY PUT A HOLE IN SHIP NUMBER"SF(R,C)3 

PRINT "AT THAT POINT." 

PRINT "SPLASH! TRY AGAIN.” 

8:5 

8070 1180 

L((INT(F(R,C)-1)/2)+1)sL((INT(F(R,C)-11/2)+1)+1 

PRINT "AND YOU SUNK IT. HURRAH FOR THE GOOD GUYS." 

PRINT "SD FAR, THE BAD GUYS HAVE LOST" 

PRINT L(1);"DESTRODYER(S), — ";L(D;"CRUISER(S), AND "; 

PRINT L(3); "AIRCRAFT CARRIER(S)." 

PRINT "YOUR CURRENT SPLASH/HIT RATIO IS";S/H 

IF (L(1)+L(2)+L(3))<6 THEN. 1180 

PRINT 

PRINT “YOU HAVE TOTALLY WIPED QUT THE BAD GUYS’ FLEET" 

PRINT “WITH A FINAL SPLASH/HIT RATIO OF "3S/H 

IF 8/420 THEN 1590 

PRINT “CONGRATULATIONS -- A DIRECT HIT EVERY TIME." 

PRINT 

PRINT "жле коз еркеке е 

PRINT 

6070 50 

END 


TRY AGAIN." 


This is a simulation of the card game 
of Blackjack or 21, Las Vegas style. 
This rather comprehensive version 
allows for up to seven players. On each 
hand each player may get another card 
(a hit), stand, split a hand in the event 
two identical cards were received or 
double down. Also, the dealer will ask 
for an insurance bet if he has an ex- 
posed ace. 

Cards are automatically reshuffled 
as the 51st card is reached. For greater 
realism, you may wish to change this to 
the 41st card in Line 110. Actually, 
fanatical purists will want to modify the 
program so it uses three decks of cards 
instead of just one. 

This program originally surfaced at 
Digital Equipment Corp.; the author is 
unknown. 


BLACKJACK 
CREATIVE COMPUTING MORRISTOWN, NEM JERSEY 


00 YOU WANT INSTRUCTIONS? YES 
THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS MAY PLAY THE 
GAME. ON EACH DEAL, BETS WILL BE ASKED FOR, AND THE 
PLAYERS’ BETS SHOULD BE TYPED IN. THE CARDS WILL THEN BE 
DEALT, AND EACH PLAYER IM TURN PLAYS HIS HAND. THE 
FIRST RESPONSE SHOULD BE EITHER 707, INDICATING THAT THE 
PLAYER 18 DOUBLING DOWN, ^S", INDICATING THAT HE IS 
STANDING, “H”, INDICATING HE WANTS ANOTHER CARD, OR 7/7, 
INDICATING THAT HE VANTS TO SPLIT HIS CARDS. AFTER THE 
INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 757 OR 
^W^, UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING 
DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR 
BLACKJACK, THE INITIAL RESPONSE SHOULD BE 757. 
NUMBER OF PLAYERS? 2 
RESHUFFLING 
BETS 
ü t ? 200 
à 2 * 130 
PLAYER 1 2 DEALER 

9 6 % 

8 J 
PLAYER 175 
TOTAL IS 17 
PLAYER 2? 5 
TüTAL IS 16 
DEALER HAS A 3 CONCEALED FOR А TOTAL OF 12 
DRAUS Q — ...BUSTED 
PLAYER 1 WINS — 200 TOTAL= 200 
PLAYER 2 WINS 150 TOTAL= 150 
DEALER^S TOTAL=~350 


BETS 

# 1 * 300 

# 2 * 200 

PLAYER 1 2 DEALER 
K a 2 
2 4 
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PLAYER 1 ? H 
RECEIVED A 3 HIT? 8 
TOTAL IS 15 
PLAYER 2 ? H 
RECEIVED A 3 HITT S 
TOTAL 18 17 
DEALER HAS A J CONCEALED FOR A TOTAL OF 12 
DRAUS @ ...BUSTED 
PLAYER i WINS 200 TOTAL= 500 
PLAYER 2 WINS 200 TOTAL= 350 
DEALER S TOTAL=-850 
BETS 
# 1 ? 500 
4 2 * 500 
PLAYER 1 2 DEALER 
K 3 4 
6 9 
PLAYER 1 ? H 
RECEIVED A J  ...BUSTED 
PLAYER 2 ? H 
RECEIVED AN A HIT? H 
RECEIVED A 7 ...BUSTED 
DEALER HAD A 2 CONCEALED. 
PLAYER 1 LOSES 500 TOTAL= 0 
PLAYER 2 LOSES 500 TOTAL--150 
DEALER^S TOTAL= 150 
BETS 
4 1 7 500 
427150 
PLAYER 1 2 DEALER 
6 7 ? 
10 J 
PLAYER 1 ? S 
TOTAL IS 16 
PLAYER 2 ? 5 
TOTAL IS 17 
DEALER HAS A 5 CONCEALED FOR A TOTAL OF 12 
DRAWS 9 — ---TOTAL IS 21 


PLAYER 1 LOSES 500 TOTAL--500 
PLAYER 2 LOSES 50 TOTAL=-200 
DEALER"S TOTAL= 700 
BETS 
4 1 7 100 
#2 7 100 
PLAYER 1 2 DEALER 
А 8 10 
8 8 
NO DEALER BLACKJACK, 
PLAYER 1 7 8 
TOTAL 15 19 
PLAYER 278 
TOTAL IS 18 
DEALER HAS A 10 CONCEALED FOR A TOTAL OF 20 


PLAYER 1 LOSES 100 TOTAL=-600 
PLAYER 2 LOSES 100 TOTAL=-300 
DEALER^S TOTAL= 900 


BETS 

ü 1 ? 300 

4 2 ? 500 

PLAYER 1 3 DEALER 
$ 4 3 
2 B 

PLAYER 1 ? H 


RECEIVED A 4 HIT? H 

RECEIVED AN A HIT? H 

RECEIVED AN ñ HIT? S 

TOTáL IS 13 

PLAYER 2 ? H 

RECEIVED A 10 ...BUSTED 

DEALER HAS À K CONCEALED FOR A TOTAL OF 13 
DRAWS 7 -~~TOTAL IS 20 


PLAYER 1 LOSES 500 TOTAL=-1100 
PLAYER 2 LOSES 500 TOTAL=-900 
DEALER^S TOTAL= 1900 

RESHUFFLING 

BETS 

817500 

H 2 ? 500 


PLAYER 1 2 
3 3 
6 3 
PLAYER 1 ? H 
RECEIVED A 10 HIT? S 
TOTAL IS 19 
PLAYER 2 7 D 
RECEIVED A J 
TOTAL 15 18 
DEALER HAS A 4 CONCEALED FOR A TOTAL OF 13 
DRAWS 2 7 a. BUSTED 
PLAYER 1 WINS 500 TOTAL=-1100 
PLAYER 2 UINS 1000 TOTAL- 700 
DEALER^S TOTAL= 400 
BETS 
4 1 * 400 
4 2 * 320 
PLAYER 1 2 DEALER 
ü 8 10 
8 4 
NO DEALER BLACKJACK. 
PLAYER 175 
TOTAL 1S 16 
PLAYER 2 ? D 
RECEIVED A 7 
TOTAL IS 19 
DEALER HAS A 2 CONCEALED FOR A TOTAL OF 12 
BRAUS 4 K ...BUSTED 
PLAYER 1 WINS 400 TOTAL=-700 
PLAYER 2 WINS 440 TOTAL= 1340 
DEALER^8 TOTAL--640 
BETS 
8 17 500 
# 2 ? 500 
PLAYER 1 2 DEALER 
4 6 J 
2 ü 
NO DEALER BLACKJACK. 
PLAYER 1 7 H 
RECEIVED à 9 HIT? H 


DEALER 
7 


RECEIVED AN 8 ...BUSTED 
PLAYER 2 ? H 

RECEIVED AN A HIT? 5 
TüTAL IS 17 


DEALER HAS A 7 CONCEALED FOR A TOTAL OF 17 


PLAYER 1 LOSES 
PLAYER 2 PUSHES 
DEALER’S TOTAL=-140 


500 TOTAL=~1200 
TOTAL= 1340 


2 PRINT TABGHO "BLACK. JACK" 

А PRINT TAB(TS); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 

6 PRINT:PRINT:PRINT 

20 DIM Р(15,12),0015),С052),0052},1(8),9(7),8(15) 

30 DIM 015) 

40 REH--PLI,J) IS THE JTH CARD IN HAND I, 001) IS TOTAL OF HAND 1 
50 REH--C 15 THE DECK BEING DEALT FROM, D IS THE DISCARD PILE, 

60 REH--T(I) IS THE TOTAL FOR PLAYER I, SCI) IS THE TOTAL THIS HAND 
20 REH--FOR PLAYER I, B(I) IS TH BET FOR HAND I 

80 REH--R(I) IS THE LENGTH OF РІ, ж) 
90 GOTO 1500 

100 REH--SUBROUTINE TO GET A CARD. 
110 IF С<51 THEN 230 

120 PRINT "RESHUFFLING" 

130 FOR D-D TO 1 STEP -1 

140 C=C-1 

180 C(C)=D(D) 

160 NEXT D 

170 FOR 01552 Т0 C STEP -1 

180 C2SINT(RNDCL) (C T-C 1204€ 

190 C3sC(C2) 

200 C(C2)-C (C1) 

210 C(C1)=UÜ3 

220 NEXT C1 

230 XsC(C) 

240 С=С+1 

250 RETURN 

300 REM--SUBROUTINE TO EVALUATE HAND I. TOTAL IS PUT INTO 
310 КЕН--0(1). TOTALS HAVE THE FOLLOWING MEANING: 

320 REH-- 2-10... HARD 2-10 

330 REH-- 11-21...80FT 11-21 

340 REH-- 22-32...HARD 11-21 

350 REH-- 33+.,.. BUSTED 

340 0-0 

370 FOR 02-1 TO RID 

380 Х-Р(1,02) 

390 GOSUB 500 

400 NEXT 02 

410 D(I)=0 

420 RETURN 


RESULT IS PUT IN X. 
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500 REM-~SUBROUTINE TO ADD CARD X TO TOTAL Q. 

510 XizX: IF X1>10 THEN Xt=10: REM SANE AS Хіз10 MIN X 
520 QI=Q+X1 

530 IF ü»-11 THEN 590 

540 IF ХУТ THEN 570 

850 0=0+11 

540 RETURN 

570 й-01-11%(012-11) 

580 RETURN 

590 @=01-(0<=21 AND 01521) 

600 IF 0433 THEN 620 

610 Q=-1 

620 RETURN 

700 REM--CARD PRINTING SUBROUTINE 

210 REH D$ DEFINED ELSEWHERE 

720 PRINT HIDS(DS,3£X-2,2); 

730 PRINT " "; 

240 RETURN 

750 REH--ALTERNATIUE PRINTING ROUTINE 

760 PRINT " ";HIDS(DS$,30X-1,2); 

770 PRINT " "; 

780 RETURN 

800 REH--SUBROUTINE TO PLAY OUT A HAND. 

810 REN--NO SPLITTING OR BLACKJACKS ALLOWED 

820 Н1-5 

830 GOSUB 1410 

840 His3 

850 0H H BOTO 950,930 

860 GOSUB 100 

870 В(1)=В(1)+2 

880 PRINT "RECEIVED а"; 

890 BÜSUB 200 

900 GOSUB 1100 

910 IF 070 THEN GOSUB 1300 

920 RETURN 

930 GOSUB 1320 

940 RETURN 

950 GOSUB 100 

960 PRINT "RECEIVED A"; 

970 GOSUB 700 

980 BOSUB 1100 

990 IF 050 THEN 940 

1000 PRINT "HIT": 

1010 GOTO 830 

1100 REN--SUBROUTINE TO ADD A CARD TO ROW I 

1110 RCD-RUDH 

1120 P(I,R(I))=X 

1130 0501) 

1140 GOSUB 500 

1150 001) =0 

1160 IF O>=0 THEN 1190 

1170 PRINT "... BUSTED" 

1180 GOSUB 1200 

1190 RETURN 

1200 REM--SUBRÜUTINE TO DISCARD ROW I 

1210 IF R(I)<>0 THEN 1230 

1220 RETURN 

1230 D=D+1 

1240 BUDSP,ROD) 

1250 RCDSRD-1 

1260 GOTO 1210 

1300 REH--PRINTS TOTAL OF HAND I 

1310 PRINT 

1320 АА=0(1): 60808 3400 

1325 PRINT “TOTAL 157244 

1330 RETURN 

1400 REH--SUBROUTINE TO READ REPLY 

1410 REM I$ DEFINED ELSEWHERE 

1420 INPUT H$: HSSLEFTSUHS, 1) 

1430 FOR Hel TO НІ STEP 2 

1440 IF H$zHIDSCIS,H,I) THEN 1480 

450 NEXT H 

1460 PRINT "ТҮРЕ ";HIDSCIS,I,H1-1);" OR "SHIDSGIS HI 22;" PLEASE"; 
470 GOTO 1420 

480 H=(H+1)/2 

490 RETURN 

1500 КЕМ--РЕПБКАН STARTS HERE 
1810 REH--INITIALIZE 
1520 D$z"8N à 2 3 4 5 6 
530 I5-"H,8, D, /," 
1540 FOR 151 TO 13 
550 FOR Js4*1-3 TO 4*1 
580 00) =1 

570 NEXT J 

1580 NEXT I 

1590 1-82 

600 С=53 

810 PRINT "DO YOU WANT INSTRUCTIONS": 

620 INPUT H$ 

630 IF LEFTS(HS,1)="N" THEN 1750 

640 PRINT "THIS IS THE GAME OF 21. AS MANY AS 7 PLAYERS МАТ PLAY THE" 
1850 PRINT "GAME. ON EACH DEAL, BETS WELL BE ASKED FOR, AND THE" 
460 PRINT "PLAYERS" BETS SHOULD BE TYPED ІН. [HE CARDS WILL THEN BE" 


?N 8 910 Јак" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


"DEALT, AND EACH PLAYER IN TURN PLAYS HIS HAND. THE" 


"PLAYER 15 DOUBLING DOWN, 757, INDICATING THAT HE IS" 
"INDICATING THAT HE WANTS TO SPLIT HIS CARDS. 


PRINT "^H^, 
PRINT “DOWN IS AGAIN PERMITTED. IN ORDER TO COLLECT FOR" 
PRINT "BLACKJACK, THE INITIAL RESPONSE SHOULD BE 75.4 
PRINT “NUMBER OF PLAYERS"; 

INPUT N 

IF МСТ OR МУ? OR NCINT(N) THEN 1760 

FOR 1=1 TO 8: Т(1)=0: МЕХР I 

D1=N+1 

IF 2#D1+€>=52 [HEN GDSUB 120 

IF C=2 THEN С=С-1 

FOR Ізі TO N: Z(1)-0: НЕХТ I 

FOR 1=1 TO 15: В(1)=0: NEXT I 

FÜR I=} TO 15: Q(I)=0: NEXT I 

FOR 1-1 TO 7: S(I)=0: NEXT I 

FOR Ist TO 15: R(I)=0: NEXT I 

PRINT "BETS" 

FOR 1=1 TO N: PRINT "H";I;: INPUT 201): NEXT I 

FOR Ізі TO N 

IF 101) <=0 OR Z(1)2500 THEN 1880 

BODSZUD 

NEXT I 

PRINT "PLAYER"; 
FÜR I=1 TO N 
PRINT I" 
NEXT 1 

PRINT "DEALER" 
FÜR 1-1 TO 2 
PRINT TAB(S); 
FOR 1=1 TO M 
GOSUB 100 

PUL, J)=X 

IF Jet OR I<=N 
NEXT I 

PRINT 

NEXT J 

FOR I=} TO 01 
&(1)=2 

NEXT I 
REH--TEST FOR INSURANCE 

IF P(D1,1)21. THEN 2240 

PRINT "ANY INSURANCE"; 

INPUT H$ 

IF LEFTS(HS, 1) "Y" THEN 2240 

PRINT "INSURANCE BETS" 

FOR Isi TO N: PRINT "ü";I;: INPUT Z(I): NEXT I 
FOR I=t TON 


THEN GOSUB 750 


IF 711250 OR Z(I)>B(I)/2 THEN 2160 

NEXT I 

FOR I=1 TO N 

5(12ғ2 (19% ( 34 (~ (CP (D1, 2) 5210) 1-1) 

NEXT I 

REH--TEST FÜR DEALER BLACKJACK 

List: 12-1 

IF P(D1,1)=1 AND P(D1,2)>9 THEN |1150: 12-0 
IF P(D1,2)21 AND Р(Ш1,1)>9 THEN 11-0: 1220 
IF +1920 OR 125>0 THEN 2320 

PRINT "DEALER HAS A";MIDS(DS, 34P(D1,2)-2,3);" IN THE HOLE "3 
PRINT "FOR BLACKJACK" 

FOR I=1 TO Dt 

GOSUB 300 

NEXT I 

GOTO 3140 


REH--NÜ DEALER BLACKJACK 

IF Р(01,1) 21 AND P(D1,1)410 THEN 2350 
PRINT "NO DEALER BLACKJACK." 
REH--NOM PLAY THE HANDS 

FOR Ізі TO h 

PRINT "PLAYER" IG 

His? 

60508 1410 

ON H GOTO 2550, 2410, 2510, 2400 
REH--PLAYER WANTS TO STAND 
GOSUB 300 

IF 8(195221 THEN 2490 

PRINT "BLACKJACK" 
54(1)=5(1)+1.5®В(1) 

B(1)=0 

GOSUB 1200 

GOTO 2900 

605UB 1320 

5070 2900 

REH--PLAYER WANTS TO DOUBLE DOUN 
GOSUB 300 

GOSUB 840 

GOTO 2900 

REH--PLAYER WANTS TO BE HIT 


"FIRST RESPONSE SHOULD BE EITHER ^D', INDICATING THAT THE" 


“STANDING, “Н”, INDICATING HE WANTS ANOTHER CARB, OR ^/^," 
AFTER THE " 
PRINT "INITIAL RESPONSE, ALL FURTHER RESPONSES SHOULD BE 757 DR" 
UNLESS THE CARDS WERE SPLIT, IN WHICH CASE DOUBLING" 


2560 
2570 
2580 
2590 
2600 
2410 
2412 
2414 
3620 
2630 
2540 
2650 
2460 
2470 
2480 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 


5605/8 300 
Hi=3 

G0SUB 950 

6070 2900 

REH--PLAYER WANTS TO SPLIT 
Li=P(L,t}2 IF PCE,1)210 THEN 11510 
L2=P(1,2): IF PCI,2)510 THEN L2=10 
IF 11512 THEN 2640 

PRINT "SPLITTING NOT ALLOWED.” 
GOTO 2370 

REM--PLAY OUT SPLIT 

11=1+01 

RUE) =2 

P(I1,1)=P(1,2) 

B(I+D1)=B(I) 

GOSUB 100 

PRINT "FIRST HAND RECEIVES A"; 
GOSUB 700 

PCT, 2)2X 

GOSUB 300 

PRINT 

60808 100 

PRINT "SECOND HAND RECEIVES A"; 


3770 I=I1 


3780 
3790 
2800 
3810 
2820 
2830 
2840 
2850 
3850 
2870 
2880 
2890 
2900 
2910 
2920 
2330 
2940 
2750 
2960 
2970 
3980 
3990 
3000 
3010 
3020 
3030 
3035 
3040 
3050 
3050 
3070 
3080 
3090 
3095 
3100 
3110 
3120 
3125 
3130 
3140 
3150 
3160 
3170 
3180 
3182 
3184 
3186 
3188 
3200 
3210 
3220 
4250 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3140 
34350 
3360 
3400 
3410 
3420 
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GOSUB 700 

Р(1,2)=Х 

60508 300 

PRINT 

I=I1-DI 

IF P(I,t)=1 THEN 2900 
REM--NOU PLAY THE TUO HANDS 
PRINT "HAND";1-(D5D1); 
80808 800 

I=I*D1 
IF N 
I=Ht1=D1 
NEXT I 
80808 300 

REN--TEST FOR PLAYING DEALER/S HAND 

FOR 1=1 TÜ N 

IF R(I)>0 OR R(I+D1)>0 THEN 3010 

NEXT I 

PRINT "DEALER HAD А"; 

X=P(D1,2) 

60508 700 

PRINT " CONCEALED." 

6010 3140 

PRINT "DEALER HAS A";MIDS(DS, 34P (D1,2)-2,3);" CONCEALED "; 
I=D1 

AA=0(1): GOSUB 3400 

PRINT "FOR A TOTAL OF TAA 

IF AA>16 THEN 3130 

PRINT "DRAUS"; 

608UB 100 

GOSUB 750 

G0SUB 1100, 

AA=Q: GOSUB 3400 

IF 020 AND AACI? THEN 3040 

8(1)20- (0400/2 

IF 00 THEN 3140 

AA=Q: GOSUB 3400 

PRINT "---TOTAL I8";44 

PRINT 

REH--TALLY THE RESULT 

REM 

Z$="LOSES PUSHES WINS " 

FOR 1=1 TON 

AA=0(1): GOSUB 3400 

АВ=0(1+01): 60508 3410 

AC=0(D1): B0SUB 3420 

5(125 (1) +B CL) 4+S6N(AA-AC) +B (1401) S88 (АВ-АС) 
B(I+D1)=0 

PRINT "PLAYER"; I; 

PRINT HIDS(Z$,SGN(S(1) )647,60;". "5 

IF 8(D)450 THEN 2250 

PRINT " "u 

8070 3280 

PRINT АВ8(8 (19); 

TODSTODSSUD 

PRINT “TOTAL="; TCI) 

60808 1200 

T(D1)=T(D1)-S(I) 

1=1+01 

80808 1200 

1=1-01 

NEXT Í 

PRINT "DEALER S ТОТА =" Тр) 

80808 1200 

GOTO 1810 

Ай=йА+11%(АА>=22): RETURN 

AB=AB+11+(AB>=22): RETURN 

ACHACHI14(ACS=22} RETURN 


THEN 2850 


Bombardment 


BOMBARDMENT is playedon two, 5x5 
grids or boards with 25 outpost 
locations numbered 1 to 25. Both you 
and the computer have four platoons of 
troops that can be located at any four 
outposts on your respective grids. 

At the start of the game, you locate 
(or hide) your four platoons on your 
grid. The computer does the same on 
its grid. You then take turns firing 
missiles or bombs at each other's 
outposts trying to destroy ай four 
platoons. The one who finds all four 
opponents' platoons first, wins. 

This program was slightly modified 
from the original written by Martin 
Burdash of Parlin, New Jersey. 


BOHBARDHENT 
CREATIVE COMPUTING MORRISTOWN, NEM JERSEY 


YOU ARE ON A BATTLEFIELD UITH 4 PLATOONS AND YOU 
HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED. 
YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST. 
THE COMPUTER DOES THE SANE WITH ITS FOUR PLATOONS. 


THE OBJECT OF THE GAME 15 TO FIRE MISSILES AT THE 
OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU. 
THE ONE VHO DESTROYS ALL FOUR OF THE ENEMY^S PLATOONS 
FIRST IS THE WINNER. 


GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT! 


TEAR OFF MATRIX AND USE IT TO CHECK OFF THE NUMBERS. 


1 2 3 4 
6 ? 8 % 
11 12 13 14 
16 17 18 19 
21 22 23 24 


WHAT ARE YOUR FOUR POSITIONS? 10,9,16,24 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 
НА, HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. 1 PICKED 21. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 
HA, HA YOU MISSED. НҮ TURN NOU 


І HISSED YOU, YOU DIRTY RAT. I PICKED 23 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 13 
HA, Hà YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. I PICKED 22 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR HISSILE? 11 
HA, HA YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. I PICKED 13 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 9 
НА, HA YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. I PICKED 15 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 25 
HA, HA YOU HISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. I PICKED 12 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 5 
HA, HA YOU MISSED. MY TURN NOV 


I MISSED YOU, YOU DIRTY RAT. I PICKED 1 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 20 
HA, HÀ YOU MISSED. MY TURN NOU 


I GOT YOU. IT UON'T BE LONG NOU. POST 14 WAS HIT. 
YOU HAVE ONLY THREE OUTPOSTS LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 21 
HA, HA YOU MISSED. HY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. 1 PICKED 20 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 23 
YOU GOT ONE OF MY OUTPOSTS. 
OWE DOWN, THREE TO GO 


I MISSED YOU, YOU DIRTY RAT. I PICKED 8 . YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 16 
HA, HA YOU MISSED. MY TURN NOW 


I MISSED YOU, YOU DIRTY RAT. I PICKED 4. YOUR TURN. 


WHERE DO YOU VISH TO FIRE YOUR MISSILE? 15 
HA, HA YOU HISSED. MY TURN NOU 


1 MISSED YOU, YOU DIRTY RAT. I PICKED 6. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 14 
YOU GOT ONE OF HY OUTPOSTS. 
TUQ DOWN, TUO TO 60 


І GOT YOU. IT UQN'T BE LONG NOU. POST 10 WAS HIT. 
YOU HAVE ONLY TUO OUTPOSTS LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 13 WHERE DO YOU WISH TO FIRE YOUR MISSILE? 3 


НА, HA YOU MISSED. MY TURN NOU HA, НА YOU MISSED. MY TURN NOU 

I MISSED YOU, YOU DIRTY RAT. I PICKED 19 . YOUR TURN. I MISSED YOU, YOU DIRTY RAT. 1 PICKED 3 . YOUR TURN. 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? 12 WHERE DO YOU WISH TO FIRE YOUR HISSTILE? 4 

HA, HA YOU MISSED. КҮ TURN NOU HA, HA YOU MISSED. МҮ TURN NOU 

I MISSED YOU, YOU DIRTY RAT. I PICKED 7 . YOUR TURN. 1 MISSED YOU, YOU DIRTY RAT. I PICKED 14 . YOUR TURN. 
WHERE DO YOU WISH TO FIRE YOUR MISSILE? 11 WHERE DO YOU WISH TO FIRE YOUR MISSILE? 22 

HA, HA YOU MISSED. НҮ TURN NOU HA, HA YOU MISSED. HY TURN NOW 

I GOT YOU. IT WON’T BE LONG NOU. POST 24 WAS HIT. I MISSED YOU, YOU DIRTY RAT. I PICKED 25 . YOUR TURN. 


YOU HAVE ONLY ONE OUTPOST LEFT. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 12 
WHERE DD YOU WISH TO FIRE YOUR MISSILE? 1 HA, HA YOU KISSED. MY TURN NOU 
HA, HA YOU MISSED. MY TURN NOU 


I MISSED YOU, YOU DIRTY RAT. 1 PICKED 11 . YOUR TURN, 
І MISSED YOU, YOU DIRTY RAT. I PICKED 2. YOUR TURN. 


WHERE DO YOU WISH TO FIRE YOUR MISSILE? 9 

UHERE BO YOU WISH TO FIRE YOUR MISSILE? 2 На, HA YOU MISSED. MY TURN NOU 

YOU GOT OWE OF MY OUTPOSTS. 

THREE DOWN, ONE TO GO 
YOU'RE DEAD. YOUR LAST OUTPOST WAS AT 9 . НА, HA, НА. 
BETTER LUCK NEXT TIME, 

І MISSED YOU, YOU DIRTY RAT. I PICKED 18 . YOUR TURN. 


10 PRINT TAB(28);"BONBARDNENT" 


20 PRINT ТАВ(15) ; "СКЕАТІЧЕ COMPUTING MORRISTOWN, NEU JERSEY" 600 IF X=L THEN 920 

30 PRINT:PRINT:PRINT 610 IF X=K THEN 920 

100 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU" 420 GOTO 670 

110 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY HAY BE PLACED." 630 PRINT " HA, HA YOU MISSED. MY TURN NOU" 
120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY ONE OUTPOST.” 640 PRINT: PRINT: GOTO 570 

130 PRINT "THE COMPUTER DOES THE SANE WITH ITS FOUR PLATOONS.” 670 PRINT "I HISSED YOU, YOU DIRTY RAT. I PICHED";H;". YOUR TURN." 
135 PRINT 480 PRINT: PRINT: GOTO 500 

140 PRINT "THE OBJECT OF THE GANE IS TO FIRE MISSLES AT THE" 710 Q=Q+1 

150 PRINT “OUTPOSTS OF THE COMPUTER. IT WILL DO THE SAME TO YOU." 720 IF 0=4 THEN 890 

160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENENY’S PLATOONS” 730 PRINT "YOU GOT ONE OF HY OUTPOSTS.” 

170 PRINT “FIRST IS THE WINNER." 740 IF 851 THEN 770 

180 PRINT 750 IF 8-2 THEN 810 

190 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!" 760 IF 0-3 THEN 850 

200 PRINT 770 PRINT “ONE DOUM, THREE TO 60" 

210 PRINT “TEAR OFF HATRIX AND USE IT TO CHECK OFF THE NUMBERS." 780 PRINT: PRINT: GOTO 570 

220 FOR R=t TO 5: PRINT: NEXT В 810 PRINT "TUO DOUN, TUO TO GO" 

260 DIM M(100) 820 PRINT: PRINT: GOTO 570 

270 FOR В=1 TO 5 850 PRINT "THREE DOUN, ONE TO GO” 

280 I=(R-1)*5+1 860 PRINT: PRINT: GOTO 570 

290 PRINT 1,1+1,1+2,1+3,1+4 990 PRINT "YOU GOT HE, 1/8 GOING FAST. BUT 1/11 GET YOU WHEN” 
300 НЕХТ R 900 PRINT " Y TRANSISTORS SECUPERA E" 

350 FOR R=1 Т0 10: PRINT: NEXT R 910 GOTO 1235 

380 C=INT(RND(1)*25)+1 920 2:24 

390 DeINT(RNDCL)825) 41 930 IF Z=4 THEN 1110 

400 E=INT(RND(1)*25)+1 | 940 PRINT "I GOT YOU. IT WON’T BE LONG NOU. POST";X;" WAS HIT." 
410 F=ÚINT(RND(1)225)+1 950 IF 2-1 THEN 990 

420 IF C=D THEN 390 980 IF 2-2 THEN 1030 

430 IF C=E THEN 400 970 IF 2-3 THEN 1070 

440 IF C-F THEN 410 990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT." 
450 IF D=E THEN 400 1000 PRINT: PRINT: GOTO 500 

460 IF D=F THEN 410 1030 PRINT “YOU HAVE ONLY TUO OUTPOSTS LEFT." 
470 IF E=F THEN 410 1940 PRINT: PRINT: GDTO 500 

480 PRINT "UHAT ARE YOUR FOUR POSITIONS"; 1070 PRINT “YOU HAVE ONLY ONE OUTPOST LEFT." 
490 INPUT G,U,K,L 1080 PRINT: PRINT: GOTO 500 

495 PRINT 1110 PRINT "YOU^RE DEAD. YOUR LAST OUTPOST WAS AT";X;". HA, HA, HA." 
500 PRINT "UHERE DO YOU WISH TO FIRE YOUR HISSLE"; 1120 PRINT "BETTER LUCK NEXT TIME." 

510 INPUT Y 1150 GOTO 1235 

520 IF Y=C THEN 710 1160 P=P+1 

530 IF Y-D THEN 710 1120 N-P-1 

540 IF Ү-Е THEN 710 1180 FOR T=1 TO Н 

550 IF Y=F THEN 710 1190 IF HeH(T) THEN 570 

560 6070 630 1200 NEXT T 

570 H=INT(RND(1)*25S)+1 1210 xen 

575 GOTO 1140 1220 Н(Р)=№ 

580 IF X-8 THEN 920 1230 GOTO 580 

590 IF X=H THEN 920 1235 END 
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Bombs Away 


In this program, you fly a World War 
ll bomber for one of the four 
protagonists of the war. You then pick 
your target or the type of plane you are 
flying. Depending upon your flying 
experience and the quality of the 
enemy defenders, you then may ac- 
complish your mission, get shot down, 
or make it back through enemy fire. In 
any case, you get a chance to fly again. 

David Ah! modified the original 
program which was created by David 
Sherman while a student at Curtis Jr. 
High School, Sudbury, Massachusetts. 


BOMBS AWAY 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE A PILOT IN A WORLD WAR II BOMBER. 
WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERMANY(4)? 2 
AIRCRAFT ~~ LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)? 4 


YOU RE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR. 


HOW MANY MISSIONS HAVE YOU FLOWN? 25 


DIRECT HIT!!!! 43 KILLED. 
MISSION SUCCESSFUL. 


ANOTHER MISSION (Y OR N)? Y 

YOU ARE A PILOT IN A WORLD WAR II BOMBER. 

WHAT SIDE -- ITALY(1), ALLIES(2), JAPAN(3), GERHANY(4)? 3 
YQU^RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON. 
YOUR FIRST KAMIKAZE MISSION(Y OR ND? Y 


зж ** BOOK & + + 8 

YOU HAVE BEEN SHOT DOUN..... 

DEARLY BELOVED, UE ARE GATHERED HERE TODAY TO PAY OUR 
LAST TRIBUTE... 


ANOTHER MISSION (Y OR N)? Y 

YOU ARE A PILOT IN A WORLD WAR II BOMBER, 

WHAT SIDE ~~ ITALY(1), ALLIES(2), JAPAN(3), GERHANY(A)? 1 
YOUR TARGET ~- ALBANIA(1), GREECE(2), NORTH AFRICA(3)? 1 


SHOULD BE EASY -- YOU^RE FLYING A NAZI-HADE PLANE. 


HOW MANY MISSIONS HAVE YOU FLOWN? 200 
MISSIONS, NOT HILES... 

150 MISSIONS IS HIGH EVEN FÜR ÜLD-TIMERS. 

NOU THEN, HOW MANY MISSIONS HAVE YOU FLOWN? 2 


© 


ВР 
10 

20 

22 

25 

30 

40 

42 

45 

50 

60 

80 

90 

110 
120 
122 
125 
130 
150 
170 
190 
195 
200 
205 
207 
210 
215 
220 
230 
232 
235 
250 
280 
270 
280 
285 
290 
292 
295 
297 
300 
305 
310 
320 
325 
327 
330 
335 
340 
345 
347 
350 
355 
357 
360 
365 
370 
380 
384 
386 
387 
390 
395 
400 
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RINT "YOU ARE A PILOT IN A WORLD WAR II BOMBER." 

INPUT “WHAT SIDE -- ITALY(4), ALLIES(2), JAPAN(3), GERMANY(A)",A 
IF A>O AND ACS THEN 25 

PRINT "TRY AGAIN..." : GOTO 10 

ON A GOTO 30, 110, 200, 220 

INPUT "YOUR TARGET -- ALBANIA(1), GREECE(2), NORTH AFRIDACIÓ";B 
IF B>O AND В<4 THEN 45 
PRINT "TRY AGAIN..." : GOTO 30 
PRINT : ON B GOTO 50, 80,90 
PRINT "SHOULD BE EASY ~~ YOU^RE FLYING A NAZI-MADE PLANE." 
бото 280 
PRINT "BE CAREFUL!!!" : GOTO 280 
PRINT "YOU'RE GOING FOR THE OIL, EH?" : GOTO 280 

INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4) "56 
IF 820 AND G<5 THEN 125 

PRINT "TRY AGAIN..." : GOTO 110 

PRINT : ON G GOTO 130, 150, 170, 190 

PRINT "YOU"VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI." : 6070 280 
PRINT “YOUCRE DUMPING THE A-BOMB ON HIROSHIMA." : GOTO 280 
PRINT “YOUCRE CHASING THE BISHARK IN THE NORTH SEA." : GOTO 280 
PRINT "YOURE BUSTING A GERMAN HEAVY WATER PLANT IN THE RUHR.” 
5070 280 

PRINT "YOU'RE FLYING A KAMIKAZE MISSION OVER THE USS LEXINGTON." 
INPUT "YOUR FIRST KAMIKAZE MISSION(Y OR N)";F$ 

IF F$="N" THEN S=0 : GOTO 358 

PRINT : IF RND(1)>.65 THEN 325 

GOTO 380 

PRINT "А NAZI, ЕН? OH WELL. ARE YOU GOING FOR RUSSIA(1)," 
INPUT "ENGLAND(2), OR FRANCECI)";M : IF М0 AND М<4 THEN 235 
PRINT "TRY AGAIN..." : GOTO 220 

PRINT : ON M GOTO 250, 260, 270 

PRINT "YOU'RE NEARING STALINGRAD." : GOTO 280 

PRINT “NEARING LONDON. BE CAREFUL, THEY^UE GOT RADAR." : бото 280 
PRINT "NEARING VERSAILLES. DUCK SOUP.  THEY^RE NEARLY DEFENSELESS. 
PRINT 

INPUT "HOW MANY MISSIONS HAVE YOU FLOWN" SD 

IF D«160 THEN 300 

PRINT "MISSIONS, NOT HILES..." 

PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS." 

PRINT "NOU THEN, "; : GOTO 285 

PRINT:IF D<100 THEN 310 

PRINT "THAT^S PUSHING THE ODDS!" : GOTO 320 

IF 0<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" 

PRINT : IF DC160*RNDC1) THEN 330 

PRINT "DIRECT HIT!!t! "INT(TOOXRNDCT) "KILLED." 

PRINT "HISSION SUCCESSFUL." : GOTO 390 

PRINT "MISSED TARGET BY"INT(2430*RND(1))" HILES!" 

PRINT “NOW YOU^RE REALLY IN FOR IT !!" : PRINT 

INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R 
IF R>O AND R<4 THEN 350 

PRINT "TRY AGAIN..." : GOTO 340 

PRINT : Т=0 : IF R=2 THEN 260 

INPUT "UHAT^S THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";8 
IF 8410 THEN PRINT "YOU LIE, BUT YOU'LL PAY...": GOTO 380 

PRINT : IF R»1 THEN T=35 

IF S+T>100*RND(I) THEN 380 

PRINT "YOU MADE IT THROUGH TREMENDOUS FLAK!!" : GOTO 390 

PRINT "+ + * ж BOOM * ж * s" 

PRINT "YOU HAVE BEEN SHOT DOUN....." 

PRINT “DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY QUR” 
PRINT “LAST TRIBUTE..." 

PRINT:PRINT:PRINT:INPUT "ANOTHER MISSION (Y OR R)";U$ 

IF Us="¥" THEN 8 

PRINT "CHICKEN !!!" ; PRINT : END 


This program plots a bouncing ball. 
Most computer plots run along the 
paper in the terminal (top to bottom); 
however, this plot is drawn horizontally 
on the paper (left to right). 

You may specify the initial velocity of 
the bail and the coefficient of elasticity 
of the ball (a superball is about 0.85 — 
other balls are much less). You also 
specify the time increment to be used 
in "strobing" the flight of the ball. In 
other words, it is as though the ball is 
thrown up in a darkened room and you 
flash a light at fixed time intervals and 
photograph the progress of the ball. 

The program was originally written 
by Val Skalabrin while he was at DEC. 


10 PRINT TAB(33); "BOUNCE" 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 


BOUNCE 30 PRINT:PRINT:PRINT 
CREATIVE COHPUTING MORRISTOWN, NEU JERSEY 90 DIM T(20) 
100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY" 
THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY 110 PRINT “OF А BALL THROWN STRAIGHT UP, AND THE COEFFICIENT Or" 
OF A BALL THROUN STRAIGHT UP, AND THE COEFFICIENT OF 120 PRINT “ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION" 
ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION 130 PRINT "COEFFICIENCY (LESS THAN 1)." 
COEFFICIENCY (LESS THAN 1). 131 PRINT 
132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TD BE USED IN" 
YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN 133 PRINT "'STROBING" THE BALL S FLIGHT (TRY .1 INITIALLY) ." 
“STROBING’ THE BALL'S FLIGHT (TRY .1 INITIALLY). 134 PRINT 
133 INPUT "TIME INCREMENT (SEC)";5S2 
TIME INCREMENT (SEC)? .1 140 PRINT 
150 INPUT “VELOCITY (FPS)";U 
VELOCITY (FPS)? 30 160 PRINT 
170 INPUT "COEFFICIENT";C 
COEFFICIENT? .9 180 PRINT 
182 PRINT "FEET" 
FEET 184 PRINT 
186 STzINT(20/(9/(14582))) 
14 000 190 FOR 1=1 TO 51 
0 200 T(I)SU«C^CI-1)/16 
13 9 9 210 NEXT I 
220 FOR HzINT(-14*(U/32)^2*U^2/32*.5) TO 0 STEP -.5 
12 0 9 221 IF INT(H)<>H THEN 225 
00 222 PRINT H; 
11 0 о 0 225 (г0 
9 0 0 230 FOR 1=1 TO S1 
10 240 FOR Т=0 TO T(1) STEP $2 
0 9 0 245 1:4,%52 
? 9 0000 230 IF ABS(H-(.5*(-32)#*T"2+V*C'(I-1)*T))5.25 THEN 270 
0 260 PRINT TAB(L/82);"0"; 
8 9 9 9 270 NEXT T 
0 0 275 T=T(I+1)/2 
7 0 0 276 IF -169T1^2*U*C^ CI- 1) TXH. THEN 290 
0 9 280 NEXT I 
6 9 9 290 PRINT 
0 300 NEXT H 
š 9 0 310 PRINT ТАВ(1); 
0 9 320 FOR 1=1 TO INT(L+1)/S2+1 
4 0 330 PRINT "."; 
340 NEXT I 
30 350 PRINT 
9 9 9 355 PRINT " 0"; 
2 9 0 360 FOR 151 TO INT(L*.9995) 
380 PRINT TABLINT(UI/S2));1; 
1 390 NEXT I 
0 400 PRINT 
00 0 9 410 PRINT TABCINT(L#1)/(2%52)-2) 3 "SECONDS" 
клк бажа жаа жаа аааз ка ат аза жака кажаа акне тт. 420 PRINT 
0 1 2 3 4 5 6 430 GOTO 135 
SECONDS 440 END 
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Bowling 


This is a simulated bowling game for 
up to four players. You play 10 frames. 
To roll the ball, you simply type 
"ROLL." After each roll, the computer 
will show you a diagram of the remain- 
ing pins (“0” means the pin is down, “+” 
means it is still standing), and it will 
give you a roll analysis: 

GUTTER 

STRIKE 

SPARE 

ERROR (on second ball if pins still 
standing) 

Bowling was written by Paul Peraino 
while a student at Woodrow Wilson 


High School, San Francisco, Califor- 
nia. 


BOUL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WELCOME TO THE ALLEY 
BRINE YOUR FRIENDS 
OKAY LET‘S FIRST GET ACQUAINTED 


THE INSTRUCTIONS (Y/N) 

? Y 

THE GANE OF BOWLING TAKES SKILL.DURING THE GAME 

THE COMPUTER WILL KEEP SCORE.YOU MAY COMPETE WITH 

OTHER PLAYERSCUP TO FOURJ.YOU WILL BE PLAYING TEN FRAMES 
QN THE PIN DIAGRAM 707 MEANS THE PIN IS DOWN...°+’ MEANS T 
PIN IS STANDING.AFTER THE GAME THE COMPUTER WILL SHOW YOUR 
SCORES . 

FIRST OF ALL...HOU NANY ARE PLAYING? 2 


VERY GOOD... 

TYPE ROLL TO GET THE BALL GOING. 
? ROLL 

PLAYER: 1 FRAME: 1 BALL: 1 


ооо + 
0+0 
00 
ü 


TYPE ROLL TO GET THE BALL GOING. 
? ROLL 
PLAYER: 1 FRAME: 1 BALL: 2 


0000 
0+0 
00 
0 
ERROR!!! 


TYPE ROLL TO GET THE BALL GOING. 
7 ROLL 
PLAYER: 2 FRANE: 1 BALL: 1 


0000 
*00 
0 + 

0 


TYPE ROLL 
? ROLL 
PLAYER: 2 


0000 
+00 
0“ 
0 
GUTTER! ! 
ERROR!!! 


TYPE ROLL 
7 ROLL 
PLAYER: 1 


00%0 
+00 
00 
0 


TYPE ROLL 
? ROLL 
PLAYER: 1 


00%0 
+00 
08 0 
0 
BUTTER!! 
ERROR!!! 


TYPE ROLL 
7 ROLL 
PLAYER: 2 


000» 
0+0 
+0 
0 


TYPE ROLL 
? ROLL 
PLAYER: 2 


00800 
000 
+0 
0 
ERROR!!! 


TYPE ROLL 
? ROLL 
PLAYER: 1 


+000 
000 
ü + 
0 


TYPE ROLL 

7 ROLL 

PLAYER: 1 

*000 
000 
00 


8 
ERROR!!! 
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TO GET THE BALL GOING. 


FRAME: 1 BALL: 2 


TO GET THE BALL GOING. 


FRAME: 2 BALL: 1 


TO GET THE BALL GOING. 


FRAKE: 2 BALL: 2 


TO GET THE BALL GOING. 


FRAME: 2 BALL: 1 


TO GET THE BALL GOING. 


FRAME: 2 BALL: 2 


TO GET THE BALL GOING. 


FRAME: 3 BALL: 1 


TO GET THE BALL GOING. 


FRAME: 3 BALL: 2 


TYPE ROLL TQ GET 
7 ROLL 
PLAYER: 2 FRAME: 


о+ о + 
00 + 
++ 

0 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 2 FRAME: 


0000 
оор 
08 0 
9 
SPARE! 11! 


TYPE ROLL ТӨ GET 
? ROLL 
PLAYER: 1 FRANE: 


+400 
808 
оо 
0 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 1 FRAME: 


0000 
000 
ü B 


Q 
SPARE! tt! 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 2 FRAME: 


00 + 
00% 
00 
+ 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 2 FRAME: 


00800 
000 
00 
Ü 
SPARE! 111 


TYPE ROLL TO GET 
? ROLL 
PLAYER: 1 FRAME: 


0080» 
0%8 
0 0 
0 


THE BALL GOING. 


3 BALL: 1 


THE BALL GOING. 


3 BALL: 2 


THE BALL GOING. 


4 BALL: 1 


THE BALL GOING. 


4 BALL: 2 


THE BALL GOING. 


4 BALL: 1 


THE BALL GOING. 


4 BALL: 2 


THE BALL GOING. 


5 BALL: 1 


10 PRINT TAB(IA) ; "ВОМ." 

20 PRINT TAB(IS) "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

270 DIM C(15),8(100,6) 

360 PRINT “WELCOME TO THE ALLEY" 

450 PRINT "BRING YDUR FRIENDS" 

540 PRINT "OKAY LET'S FIRST GET ACQUAINTED" 

630 PRINT "" 

720 PRINT "THE INSTRUCTIONS (Y/ID" 

810 INPUT 7% 

900 IF Z$="Y" THEN 990 

940 IF Z$="N" THEN 1530 

990 PRINT "THE GAME OF BOWLING TAKES HIND AND SKILL.DURING THE GAME" 
1080 PRINT "THE COMPUTER WILL KEEP SCORE.YOU HAY COMPETE WITH" 
1120 PRINT "OTHER PLAYERSCUP TO FOURI.YOU WILL BE PLAYING TEN FRAMES" 
1260 PRINT "ON THE PIN DIAGRAM "0° MEANS THE PIN IS DOUN... ^*^ MEANS THE" 
1350 PRINT "PIN IS STANDING. AFTER THE GAME THE COMPUTER WILL SHOW YOUR" 
1440 PRINT "SCORES ." 

1530 PRINT "FIRST OF ALL...HOW MANY ARE PLAYING": 

1620 INPUT R 

1710 PRINT 

1800 PRINT “VERY GOOD..." 

1890 FOR 1=1 Т0 100: FOR J=1 TO ó: A(I,J)-0: NEXT J: NEXT I 
1980 Ғ-1 

2070 FOR Р=1 TO R 

2160 M-0 

9250 В=1 

2340 H-0: 4-0 

2430 FÜR 1=1 Т0 15: С(1)=0: NEXT I 

2520 REMARK BALL GENERATOR USING HOD “15° SYSTEM 

2610 PRINT “TYPE ROLL TO GET THE BALL GOING." 

2700 INPUT N$ 

2790 K=0: D=0 

2880 FOR I=1 TO 20 

2970 X=INT(RND(1)2100) 

3060 FOR J=t TO 10 

3150 IF X<15%) THEN 3330 

3240 NEXT J 

3330 C(15#J-X)=1 

3420 NEXT I 

3510 REMARK PIN DIAGRAM 

3400 PRINT "PLAYER:"P;"FRAME:";F"BALL:"B 

3490 FOR 1-0 TO 3 

3280 PRINT 

3870 FOR J=1 TO 4-1 

3960 K=K+1 

4050 IF C(R)=1 THEN 4220 

4140 PRINT TABIO "+ "; 

4230 GOTO 4410 

4120 PRINT ТАҚТЫ: 

4410 NEXT J 
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NEXT I 

PRINT "" 

REMARK ROLL ANALYSIS 

FOR 1=1 TO 10 

В- С (1) 

NEXT I 

IF D-H <> O THEN 5220 
PRINT "SUTTER!!" 

IF B<>t OR Di»10 THEN 5490 


0=3 

IF ВОЗ OR 0510 THEN 5260 
PRINT "SPARE!T!!" 

0-2 

IF B<>2 OR D>=10 THEN 6030 
PRINT "ERROR!!!" 

8-1 

IF B<>1 OR D>=40 THEN 6210 
PRINT "ROLL YOUR 2ND BALL" 
REMARK STORAGE OF THE SCORES 
PRINT 

ACF#P, B)=0 

IF B-2 THEN 7020 


F й=3 THEN 6210 
A(F*P,B)=D-H 
IF 0=0 THEN 2520 


А(ҒяР,31-0 

WEXT P 

F=F+1 

IF F<11 THEN 2070 


PRINT "FRAMES" 

FOR Ізі TO 10 

PRINT 1; 

NEXT I 

PRINT 

FÜR Р=1 TO R 

FOR [=1 TO 3 

FOR J=1 TO 10 

PRINT АСЕР, I); 

НЕХТ J 

PRINT 

NEXT I 

PRINT 

NEXT P 

PRINT "DO YOU WANT ANOTHER GAME" 
INPUT A$ 

IF LEFT$(A$,1)z"Y" THEN 2610 


END 


This program simulates a three- 
round Olympic boxing match. The 
computer coaches one of the boxers 
and determines his punches and 
defenses, while you do the same for 
your boxer. At the start of the match, 
you may specify your man's best punch 
and his vulnerability. 

There are approximately seven ma- 
jor punches per round, although this 
may be varied in Statement 185. The 
best two out of three rounds wins. 

Jesse Lynch of St. Paul, Minnesota 
created this program. 


BOXING 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


BOXING OLYMPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS) 

WHAT IS YOUR OPPONENT^S НАКЕ? MEATHEAD 

INPUT YOUR HAN^S NAME? SUPERMAN 

DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB 
WHAT IS YOUR HANS BEST? 3 

WHAT IS HIS VULNERABILITY? 2 

MEATHEAD^S ADVANTAGE IS 2 AND VULNERABILITY IS SECRET. 
ROUND 1 BEGINS... 


SUPERHAN^S PUNCH? 1 
SUPERHAN SUINGS AND HE CONNECTS! 
SUPERMAN IS ATTACKED BY AN UPPERCUT (OH,OH)... 
AND MEATHEAD CONNECTS... 
SUPERMAN^S PUNCH? 4 
SUPERHAN JABS AT HEATHEAD'S HEAD SUPERNAN’S PUNCHY 3 
SUPERMAN TRIES AN UPPERCUT AND 1175 BLOCKED (LUCKY BLOCK!) 
SUPERMAN^S PUNCH? 3 
SUPERMAN TRIES AN UPPERCUT AND HE CONNECTS! 
SUPERHAN^S PUNCH? 3 
SUPERMAN TRIES АН UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK!) 
SUPERHAN^S PUNCH? 2 
SUPERMAN WINS ROUND 1 
ROUND 2 BEGINS... 


MEATHEAD JABS AND BLOOD SPILLS !!! 

SUPERHAN^S PUNCH? 1 

SUPERMAN SWINGS AND HE CONNECTS! 

MEATHEAD JABS AND IT^S BLOCKED ! 

SUPERMAN IS ATTACKED BY AN UPPERCUT (QH,OH)... 
BLOCKS AND HITS MEATHEAD WITH A HOOK. 

NEATHEAD TAKES A FULL SWING AND BUT IT’S BLOCKED ! 
MEATHEAD WINS ROUND 2 

ROUND 3 BEGINS... 


SUPERMAN’S PUNCH? 4 

SUPERMAN JABS АТ NEATHEAD’S HEAD SIPERMAN^S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT АН) HE CONNECTS! 

SUPERMAN^S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND IT'S BLOCKED (LUCKY BLOCK!) 


SUPERMAN SUINGS AND HE CONNECTS! 

SUPERMAN^S PUNCH? 1 

SUPERHAN SUINGS AND HE CONNECTS! 

SUPERHAH^S PUNCH? 3 

SUPERMAN TRIES AN UPPERCUT AND IT’S BLOCKED (LUCKY BLOCK!) 
SUPERMAN WINS ROUND 3 

SUPERHAN AMAZINGLY WINS 


AND NOW GOODBYE FROM THE OLYMPIC ARENA. 
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1 PRINT TAB(33) ; "BOXING" 

2 PRINT ТАВ(15); "CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
3 PRINT:PRINT:PRINT 

A"PRINT “BOXING OLYHPIC STYLE (3 ROUNDS -- 2 OUT OF 3 WINS)" 
$ 1:0 

6 L-0 

10 PRINT "WHAT IS YOUR OPPONENT’S NAME"; 
20 INPUT J$ 

30 PRINT "INPUT YOUR MAN'S NAME"; 

40 INPUT L$ 

50 PRINT "DIFFERENT PUNCHES ARE 1 FULL SUING 2 HOOK 3 UPPERCUT 4 JAB" 
60 PRINT "WHAT IS YOUR HANS BEST"; 

64 INPUT B 

70 PRINT “WHAT IS HIS VULNERABILITY"; 
80 INPUT D 

90 BIzINT(ASRNDUOD 1) 

100 DisINT(ASRNDCL 41) 

110 IF BizDi THEN 90 

120 PRINT J$;""S ADVANTAGE IS";Bis"AND VULNERABILITY IS SECRET.” 
130 FOR R=1 TO 3 

140 IF J>= 2 THEN 1040 

150 IF L>=2 THEN 1060 

160 X=0 

170 Ү-0 

180 PRINT "ROUND";R;"BEGINS.,." 

181 PRINT "" 

185 FOR RI= í 107 

190 I=INT(10#RND(1)+1) 

200 IF 125 THEN 600 

210 PRINT L$;"'S PUNCH"; 

220 INPUT P 

221 IF PsB THEN 225 

222 GOTO 230 

225 XzX42 

230 IF P-1 THEN 340 

240 IF P-2 THEN 450 

250 IF P=3 THEN 520 

270 PRINT L$;" JABS AT ";J$""S HEAD "3 
271 IF 01=4 THEN 290 

275 C=INT(B*RND(1)+1) 

280 IF C<4 THEN 310 

290 X=X+3 

300 GOTO 950 

310 PRINT “IT’S BLOCKED" 

330 GOTO 950 

340 PRINT L$ " SWINGS AND "; 

341 IF Di-4 THEN 410 

345 X3zINTCIOSRNDCU 1) 

350 IF Х3<10 THEN 410 

360 PRINT " HE MISSES "3; 

370 PRINT 

375 IF X=1 THEN 950 

380 PRINT 

390 PRINT 

400 GOTO 300 

410 PRINT "HE CONNECTS!" 

420 IF X>35 THEN 980 

425 X=X+15 

440 GOTO 300 

450 PRINT L$;" GIVES THE HOOK... "; 
455 IF р1=2 THEN 480 

460 HI=INT(2*RND(1) 1) 

470 IF Hist THEN 500 

475 PRINT "CONNECTS..." 

480 Х=Х+7 

490 GOTO 300 


510 GOTO 200 

520 PRINT L$ " TRIES AN UPPERCUT "; 
330 IF 11:53 THEN 570 

540 DS=INT(TOO#RND(1)41) 

550 IF 05<51 THEN 570 

560 PRINT " AND IT'S BLOCKED (LUCKY BLOCK!)" 
565 GOTO 300 

570 PRINT "AND HE CONNECTS!" 
580 Х-Х%4 

570 GOTO 300 

600 J7:INTOPRNDOD S 1) 

601 IF J7 =B1 THEN 605 

602 GOTO 610 

605 Y=Y+2 

610 IF J7z1 THEN 720 

620 IF J7:2 THEN 810 

630 IF J? =3 THEN 840 

640 PRINT J$;" JABS AND "$ 
645 IF D=4 THEN 700 

650 Z4=INT(7*RND(1)+1) 

655 IF 7424 THEN 690 

660 PRINT " IT'S BLOCKED !" 
670 GOTO 300 

690 PRINT " BLOOD SPILLS 111" 


29 


700 
710 
720 
730 
240 
245 
250 
760 
770 
780 
790 
800 
810 
820 
830 
835 
840 
850 
860 
845 
870 
880 
890 
900 
910 
920 
930 
940 
950 
951 
952 
953 
954 
955 
956 
760 
961 
962 
780 
1000 
1010 
1030 
1040 
1050 
1060 
1070 
1080 
1085 
1090 
1100 
1110 


Y=Y+5 

GOTO 300 

PRINT J$” TAKES ñ FULL SUING AND"; 
IF D=1 THEN 770 

R6zINTC(SOSRNDCL)41) 

IF Ró <30 THEN 770 

PRINT " BUT IT^5 BLOCKED !" 

GOTO 300 


IF Y>35 THEN 1010 
Y=Y+15 
GOTO 300 
PRINT J$;" GETS ";L$;" IN THE JAW (DUCH!)" 
Y=Y+7 
PRINT ",...AND AGAIN!" 
Y=Y+5 
IF Y>35 THEN 1010 
PRINT 
PRINT L$;" IS ATTACKED BY AN UPPERCUT (0H,OH)..." 
IF D=3 THEN 890 
U4zINT(200*RNDCT)41) 
IF 04275 THEN 920 
PRINT " AND ":J$;" CONNECTS..." 
Y=Y+8 
GOTO 300 
PRINT " BLOCKS AND HITS ";J$;" WITH A HOOK." 
Х=Х+5 
8070 300 
NEXT Rt 
IF X»Y THEN 955 
PRINT J$" WINS ROUND" R 
J=J+1 
GOTO 960 
PRINT L$" UINS ROUND "R 
L=L+1 
NEXT R 
IF J>= 2 THEN 1040 
IF L>=2 THEN 1060 
PRINT J$ " IS KNOCKED COLD AND " L$" IS THE WINNER AND CHAMP "; 
6010 1080 
PRINT L$ " IS KNOCKED COLD AND " J$" IS THE WINNER AND CHANP "; 
GOTO 1000 
PRINT J$ " WINS (NICE GOING )" J$ 
GOTO 1000 
PRINT L$ " AMAZINGLY WINS " 
68070 1000 
PRINT 
PRINT 
PRINT "AND NOU GOODBYE FROM THE OLYMPIC ARENA." 
PRINT 
END 


Б 


The object of this game is to finish 
your drawing of a bug before the 
computer finishes. 

You and the computer roll a die 
alternately with each number standing 
for a part of the bug. You must add the 
parts in the right order; in other words, 
you cannot have a neck until you havea 
body, you cannot have a head until you 
have a neck, and so on. After each new 
part has been added, you have the 
option of seeing pictures of the two 
bugs. 

If you elect to see all the pictures, this 
program has the ability of consuming 
well over six feet of terminal paper per 
run. We can only suggest recycling the 
paper by using the other side. 

Brian Leibowitz wrote this program 
while in the 7th grade at Harrison Jr-Sr 
High School in Harrison, New York. 


BUG 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THE GAME BUG 
1 HOPE YOU ENJOY THIS GAME. 


DO YOU WANT INSTRUCTIONS? YES 

THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH 
МІНЕ. EACH NUMBER STANDS FOR A PART OF THE BUB BODY. 

1l WILL ROLL THE DIE FOR YOU, TELL YOU WHAT I ROLLED FOR YOU 
UHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART. 

IF YOU CAN GET THE PART I WILL GIVE IT TO YOU. 

THE SANE WILL HAPPEN ON HY TURN. 

IF THERE IS A CHANGE IN EITHER BUG I WILL GIVE YOU THE 
OPTION OF SEEING THE PICTURES OF THE BUGS. 

THE NUMBERS STAND FOR PARTS AS FOLLOWS: 

NUNBER PART NUMBER OF PART NEEDED 

1 BODY 
NECK 
HEAD 
FEELERS 
TAIL 
LEGS 


O Maan 
De — M) — — 


YOU ROLLED A 1 

1sbODY 

YOU NOU HAVE A BODY. 

T ROLLED 4 4 

A*FEELERS 

I DO NOT HAVE A HEAD. 

DO YOU WANT THE PICTURES? YES 
»vessYQUR DUGS*ses 


ВВВВВВВВВВВВ 
В В 


В В 
BBBBBBBBBBBB 


I ROLLED A á 
&*LEBS 

I NOW HAVE 4 LEGS. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED A 1 

1=B0DY 

YOU DO NOT NEED A BODY. 
I ROLLED A 3 

J=HEAD 

1 DO NOT NEED A HEAD. 
YOU ROLLED A 1 

1=BOBY 

YOU DO HOT NEED А BODY. 
1 ROLLED & 1 

1=BODY 

1 DO NOT NEED A BODY. 
YOU ROLLED А 5 

5-TAIL 

YOU ALREADY HAVE а TAIL. 
1 ROLLED A 1 

1zb0DY 

I DO NOT NEED A BODY. 
YOU ROLLED А 5 

S=TAIL 

YOU ALREADY HAVE A TAIL. 
1 ROLLED & 6 

6-LEBS 

1 NOU HAVE 5 LEGS. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED A 5 

ТАП 

YOU ALREADY HAVE à TAIL. 
I ROLLED A 4 

4=FEELERS 

I GET À FEELER. 

DO YOU WANT THE PICTURES? NO 
YOU ROLLED А 2 

2=NECK 

YOU DO NOT NEED А NECK. 
I ROLLED А 2 

22HECK 

I DO NOT NEED A NECK. 
YOU ROLLED А 4 
A-FEELERS 

YOU DO NOT HAVE А HEAD. 
1 ROLLED À 1 

TBODY 

1 BO HOT NEED A BODY. 
YOU ROLLED A 2 

2=НЕСК 

YOU DO NOT NEED A НЕСК, 
I ROLLED A 3 

3:HEAD 

I DO NOT NEED A HEAD. 
YOU ROLLED А 5 

SzTAIL 

YOU ALREADY HAVE A TAIL. 
I ROLLED A 5 

S=TAIL 

I DO NOT NEED A TAIL. 
YOU ROLLED а á 

é=LEG 

YOU NOU HAVE 3 LEGS. 

1 ROLLED A 2 

2=NECK 

I DO NOT NEED à NECK. 
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3=HEAD 

YOU NEEDED A HEAD. 

I ROLLED A 3 

S=HEAD 

I DO NOT NEED A HEAD. 

Bü YOU WANT THE PICTURES? NO 
YOU ROLLED A 5 

5-ТАП 

YOU ALREADY HAVE А TAIL. 
I ROLLED A 5 

S=TAIL 

I DO NOT NEED A TAIL. 
YOU ROLLED A 2 

2"HECK 

YOU DO NOT NEED A NECK. 
I ROLLED А à 

LEGS 

I NOU HAVE & LEGS. 

HY BUG IS FINISHED. 

DO YOU WANT THE PICTURES? YES 
weeseYOUR BUDSSess 


HHHHHHH 
H H 
HOOH 
H H 
H Ç H 
HHHHHHH 
N H 
NN 
ВВВВВВВВВВВВ 
B B 
B B 
ТЕТТТВ B 
BBBBBBBBBBBB 
LLL 
LLL 


ЖӨЖӨНҮ DUGseeses 


BBBBBBBBBBBB 
B B 
B B 
TITTTB B 
BBBBBBBBBBBB 
LLLLLL 
LLLLLL 


I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOONI! 


10 PRINT TAB(34); "BUG" 


20 PRINT ТАВ(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 


30 PRINT:PRINT:PRINT 
40 КЕН 


50 4=0: В=0: H-0: 1=0: N-0: Р=0: Q-0: Rz0: 8-0: 150: U-0: V=0; Үз0 


60 PRINT "THE GAME BUG 

70 PRINT "I HOPE YOU ENJOY THIS GANE." 
80 PRINT 

90 PRINT "DO YOU UANT INSTRUCTIONS"; 
100 INPUT Z$ 

110 IF Z$92"N0" THEN 300 


120 PRINT "THE OBJECT OF BUG IS TO FINISH YOUR BUG BEFORE I FINISH" 

130 PRINT “НІНЕ. EACH NUMBER STANDS FOR A PART OF THE BUG BODY." 

140 PRINT "I UILL ROLL THE DIE FOR YOU, TELL YOU UHAT I ROLLED FOR YOU" 
150 PRINT "WHAT THE NUMBER STANDS FOR, AND IF YOU CAN GET THE PART." 
160 PRINT "IF YOU CAN GET THE PART I UILL GIVE IT TO YQU." 


170 PRINT "THE SAKE UILL HAPPEN ON MY TURN." 


180 PRINT "IF THERE IS 4 CHANGE IN EITHER BUG I WILL GIVE YOU THE" 
190 PRINT “OPTION OF SEEING THE PICTURES OF THE BUGS." 


200 PRINT "THE NUMBERS STAND FOR PARTS AS FOLLOWS:" 
210 PRINT “NUMBER","PART", “NUMBER OF PART NEEDED" 


220 PRINT "1", "BODY", "1" 
230 PRINT "2","NECK","1" 

240 PRINT "3", "HEAD", "t" 

250 PRINT "4", "FEELERS", "2" 

260 PRINT "S*,"TAIL", "1" 

270 PRINT "6","LEGS", "4" 

280 PRINT 

290 PRINT 

300 IF Ү>0 THEN 2480 

310 Z=INT(ó*RND(1)+1) 

320 cet 

330 PRINT "YOU ROLLED A “32 

340 ON Z GOTO 350,430,540,650,760,870 
350 PRINT "1=BDDY" 

360 IF В=1 THEN 410 

370 PRINT "YOU NOW HAVE A BODY." 
380 В=1 

390 С=0 

400 GOTO 970 

410 PRINT “YOU DO NOT NEED A BODY." 
420 6010 970 

430 PRINT "2sNECK" 

440 IF N21 THEN 500 

450 IF В=0 ІНЕН 520 

460 PRINT "YOU NOU HAVE 8 NECK." 
470 Nat 

480 £=0 

490 GOTO 970 

500 PRINT "YOU DO NOT WEED А NECK." 
510 GOTO 970 

520 PRINT "YOU DO NOT HAVE A BODY." 
530 GOTO 970 

540 PRINT "JsHEAD" 

550 IF N=0 THEN 410 

580 IF На} THEN 430 

570 PRINT "YOU NEEDED A HEAD." 

580 нгі 

590 C=O 

400 GOTO 970 

610 PRINT "YOU DO NOT HAVE A NECK." 
820 GOTO 970 

630 PRINT "YOU HAVE A HEAD." 

640 GOTO 970 

650 PRINT "A-FEELERS" 

460 IF H=0 THEN 740 

470 IF А=2 THEN 720 

480 PRINT "I NOU GIVE YOU À FEELER" 
690 Asati 

200 C=0 

710 GOTO 970 

720 PRINT "YOU HAVE TUO FEELERS ALREADY." 
730 GOTO 970 

740 PRINT "YOU DO NOT HAVE A HEAD." 
750 GOTO 970 

760 PRINT “S=TAIL“ 

770 IF B=0 THEN 830 

780 IF T=1 THEN 850 

790 PRINT "I NOU GIVE YOU A TAIL.” 
800 Т=Т+1 

810 С=0 

820 6070 970 

830 PRINT "YOU DO NOT HAVE A BODY." 
840 GOTO 970 

850 PRINT "YOU ALREADY HAVE à TAIL." 
860 GOTO 970 

870 PRINT "ésLEG" 

880 IF 1-6 THEN 940 

890 IF B-0 THEN 960 

900 L=L+1 

910 С=0 


920 

930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1199 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1570 
1400 
1810 
1620 
1630 


PRINT "YOU NOW HAVE ";L;" LEGS." 
GOTO 970 

PRINT "YOU HAVE 4 FEET ALREADY." 
GOTO 970 

PRINT "YOU DO NOT HAVE A BODY." 
X=INT(6*RND(1)+1) 

PRINT "I ROLLED 4";X 


1640 GOTO 1470 

1650 PRINT “YOUR BUG IS FINISHED." 
1060 Y=Y+1 

1670 IF 8:2 AND P=1 AND Vas THEN 1490 
1680 GOTO 1710 

1690 PRINT “HY BUG IS FINISHED." 
1700 Y=¥+2 

1710 IF C=1 THEN 300 

1720 PRINT "DO YOU WANT THE PICTURES"; 
1730 INPUT 2$ 

1740 IF 2$="NO" THEN 300 

1750 PRINT “eeeeeYOUR BUGX3sa44" 
1760 PRINT 

1770 PRINT 

1780 IF A=0 THEN 1840 

1790 FOR 1-1 TO 4 

1800 FOR Х=1 TO A 

1810 PRINT ТАВ(10); 

1820 PRINT “A "š 

1830 NEXT X 

1840 PRINT 

1850 NEXT Z 

1860 IF Н=0 THEN 1880 

1870 GOSUB 2470 

1880 IF N=O THEN 1920 

1890 FOR Z=1 TO 2 

1900 PRINT " N N" 


ON X GOTO 1000,1080,1190,1300,1410,15201910 NEXT Z 


PRINT "1=BODY" 

IF P=} THEN 1060 

PRINT "I NOW HAVE A BODY." 
С=0 

Р=1 

GOTO 1630 

PRINT "I DO NOT NEED A BODY." 
8070 1630 

PRINT "2:HECK" 

IF 0-1 THEN 1150 

IF Pz0 THEN 1170 


PRINT "I NOW HAVE A NECK." 
üs1 

[20 

GOTO 1630 


PRINT "I DO NOT NEED A NECK." 
GOTO 1630 

PRINT "I DQ ROT HAVE A BODY." 
GOTO 1630 

PRINT "З=НЕАр" 

IF 0=0 THEN 1260 

IF Есі THEN 1280 

PRINT "I NEEDED A HEAD." 

Rat 

£20 

GOTO 1630 

PRINT "I DO NOT HAVE А NECK," 
GOTO 1830 

PRINT "I DO NOT NEED A HEAD." 
GOTO 1630 

PRINT "A-FEELERS" 

IF R=0 THEN 1390 

IF 322 THEN 1370 

PRINT "I GET A FEELER." 

$5841 

£20 

GOTO 1630 

PRINT "I HAVE 2 FEELERS ALREADY." 
GOTO 1630 

PRINT "I DO NOT HAVE A HEAD." 
GOTO 1430 

PRINT "SeTAIL” 

IF P=0 THEN 1480 

IF U»1 THEN 1500 

PRINT "I NOU HAVE A TAIL." 
Ust 

£20 

GOTO 1630 

PRINT "I DO NOT HAVE A BODY." 
8070 1630 

PRINT "I DO NOT NEED A TAIL." 
GOTO 1630 

PRINT "6=LEGS" 

IF V»6 THEN 1590 

IF Р=0 THEN 1610 

Vsus 

C=0 

PRINT "I NOU НАМЕ" V "LEGS." 
GOTO 1630 

PRINT, “I HAVE 6 FEET." 

5070 1630 

PRINT "I DO NOT HAVE A BODY." 
8070 1430 

IF às2 AND T=1 AND L=ó THEN 1650 
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1920 IF B=0 THEN 2000 


1930 PRINT " BBBBBBBBBBBE" 
1940 FOR Z=1 TO 2 

1950 PRINT “ B p" 
1960 NEXT 2 

1970 IF T<>1 THEN 1990 

1980 PRINT "ТТІТТВ p" 
1990 PRINT " ВВВВВВВВВВВВ" 


2000 IF L»0 THEN 2080 
2010 FOR Zal TO 2 

2020 PRINT TAB(3); 

2030 FOR Х={ TO L 

2040 PRINT " L"; 

2050 NEXT X 

2060 PRINT 

2070 MEXT Z 

2080 FOR Z=} TO 4 

2090 PRINT 

2100 NEXT Z 

2110 PRINT “#eeessHy BUGEreses" 
2120 PRINT 

2130 PRINT 

2140 PRINT 

2150 IF 5-0 THEN 2230 

2160 FÜR Z=1 Т0 4 

2170 PRINT ТАВ(10); 

2180 FOR X=1 TO S 

2190 PRINT "F "; 

2200 NEXT X 

2210 PRINT 

2220 NEXT Z 

2230 IF RO1 THEN 2250 

2240 GOSUB 2470 

2250 IF 8-0 THEN 2280 

2260 PRINT * N N" 
2270 PRINT " N N" 
2280 IF Р=0 THEN 2340 

2290 PRINT " BBBBBBBBBBBB" 
2300 FOR Z=1 10 2 

2310 PRINT " В в" 
2320 НЕХТ 2 

2330 IF UO 1 THEN 2350 

2340 PRINT "ITTTTB p" 
2350 PRINT " BBBBBBBBBBBB" 
2360 IF V-0 THEN 2450 

2370 FOR 1-1 TO 2 

2380 PRINT TAB(5); 

2390 FOR X=} TO V 

2400 PRINT " L"; 

2410 NEXT X 

2420 PRINT 

2430 NEXT Z 

2450 IF Y<>0 THEN 2540 

2460 GOTO 30 


2470 PRINT " HHHHHHH" 
2480 PRINT " H H" 
2490 PRINT " Ho OH" 
2300 PRINT " H H" 
2510 PRINT " H V H" 
2520 PRINT " HHHHHHH" 


2530 RETURN 
2540 PRINT "I HOPE YOU ENJOYED THE GANE, 
2550 END 


PLAY IT AGAIN SQONI!" 


Bullfight 


In this simulated bullfight, you are 
the matador — i.e., the one with the 
principal role апа the one who must kill 
the bull or be killed (or run from the 
ring). 

On each pass ofthe bull, you may try: 

0 Veronica (dangerous inside move 

of the cape) 

1 Less dangerous outside move of 

the cape 

2 Ordinary swirl of the cape 
Or you may try to kill the bull: 

4 Over the horns 

5 In the chest 

The crowd will determine what 
award you deserve, posthumously if 
necessary. The braver you are, the 
better the award you receive. It's nice to 
stay alive too. The better the job the 
picadores and toreadores do, the 
better your chances. 

David Sweet of Dartmouth wrote the 
original version of this program. It was 
then modified by students at Lexington 
High School and finally by Steve North 
of Creative Computing. 


BULL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS? YES 
HELLO, ALL YOU BLODDLOVERS AND AFICIONADOS 
HERE IS YOUR BIG CHANCE TO KILL A BULL 


ÜN EACH PASS OF THE BULL, YOU HAY TRY 

O - VERONICA (DANGEROUS INSIDE HOVE OF THE CAPE) 
1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE 

2 - ORDINARY SWIRL OF THE CAPE 


INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL 
ОН ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST) 
BUT IF I ШЕКЕ YOU, 

1 WOULDN’T TRY IT BEFORE THE SEVENTH PASS. 


THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE 
POSTHUMOUSLY IF NECESSARY 
THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE 


THE BETTER А JOB THE PICADÜRES AND TOREADORES DO, 
THE BETTER YOUR CHANCES ARE 


YOU HAVE DRAUN A POOR BULL. 


THE PICADORES DID A AUFUL JOB. 
2 OF THE HORSES OF THE PICADORES KILLED. 
1 OF THE PICADORES KILLED. 


THE TOREADORES DID A AWFUL JOB. 
2 OF THE TOREADORES KILLED. 
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Pass 


THE BULL IS CHARGING AT YOU! 


NUMBER 1 


YOU ARE 


DO YOU WANT TO KILL THE BULL? NO 
WHAT HOVE DO YOU HAKE WITH THE CAPE? 0 


PASS 


THE BULL IS CHARGING AT YOU! 


NUMBER 2 


YOU ARE 


DO YOU WANT TO KILL THE BULL? NO 


WHAT HOVE DO YOU HAKE WITH THE CAPE? 1 


PASS 
HERE 
CAPE 


Pass 
HERE 
CAPE 


Pass 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 
CAPE 


PASS 
HERE 


NUMBER 3 
COMES THE BULL. 
HOVE? 1 


NUNBER 4 
COMES THE BULL. 
HOVE? 0 


NUMBER 5 
COHES THE BULL. 
HOVE? 2 


NUMBER 6 
COMES THE BULL, 
HOVE? 1 


NUMBER 7 
CüHES THE BULL. 
КОМЕТ? 0 


NUMBER 8 
COMES THE BULL. 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR A KILL? 


TRY FOR а KILL? 


TRY FOR A KILL? 


H IS THE MOMENT OF TRUTH. 
HOW DO YOU TRY. TO KILL THE BULL? 5 


THE BULL HAS GORED YOU 


YOU A 


THE C 
ONE E 


ADIOS 


RE DEAD 


ROUD AWARDS YOU 
AR OF THE BULL 


DD YOU WANT INSTRUCTIONS? NO 


YOU HAVE DRAWN A SUPERB BULL. 
LUCK, YOU'LL NEED IT. 


800) 


THE PICADORES DID A SUPERB JOB. 


THE TOREADORES DID A SUPERB JOB. 


PASS 


NUMBER 1 


THE HATADOR-- 


THE HATADOR-- 


но 


THE BULL IS CHARGING AT YOU! YOU ARE THE NATADOR-- 
DO YOU WANT TO KILL THE BULL? NO 

WHAT HOVE BO YOU КАКЕ WITH THE CAPE? 2 

THE BULL HAS GORED You 


YOU À 


THE C 
ONE E 


ADIOS 


RE DEAD 


ROUD AUARDS YOU 
AR QF THE BULL 


10 PRINT ТАВ(34) "BULL" 
20 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 DEF FNACK)=INT(RND(1) #241) 


200 
202 
205 
206 
207 
210 
220 
230 
240 
250 
260 
279 
280 
290 
300 
310 
320 
330 
340 
330 
360 
370 
380 
390 
400 
410 
420 
430 
430 
455 
460 
483 
467 
470 
490 
800 
810 
520 
530 
540 
550 
560 
570 
990 
595 
600 
610 
630 
635 
640 
650 
660 
470 
680 
690 
700 
710 
220 
730 
735 
740 
730 
760 
770 
780 
785 
730 
800 
810 
820 
830 
840 
850 
840 
870 
880 
870 
900 
910 


920, 


930 
940 
950 
980 
970 
780 
990 


PRINT:PRINT:PRINT 

L=1 

PRINT "DO YOU WANT INSTRUCTIONS"; 

INPUT 7% 

IF Z$="NO" THEN 400 

PRINT "HELLO, ALL YOU BLOOBLOVERS AND AFICIONADOS" 
PRINT "HERE IS YOUR BIG CHANCE TO KILL A BULL" 
PRINT 

PRINT "ON EACH PASS OF THE BULL, YOU MAY TRY" 

PRINT "Q - VERONICA (DANGEROUS INSIDE МОЧЕ OF THE CAPE)" 
PRINT "1 - LESS DANGEROUS OUTSIDE HOVE OF IHE CAPE" 
PRINT "2 - ORDINARY SUIRL OF THE CAPE" 

PRINT 

PRINT "INSTEAD OF THE ABOVE, YOU BAY TRY TO KILL THE BULL" 
PRINT "ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)" 
PRINT "BUT IF I UERE YOU," 

PRINT "I UQULDH^T TRY IT BEFORE THE SEVENTH PASS." 
PRINT 

PRINT "THE CROWD WILL DETERHINE WHAT AWARD YOU DESERVE" 
PRINT "POSTHUMOUSLY IF NECESSARY" 

PRINT "THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECEIVE" 
PRINT 

PRINT "THE BETTER A JOB THE PICADORES AND TOREADORES 00," 
PRINT "THE BETTER YOUR CHANCES ARE" 

PRINT 

PRINT 

Don 

D(4)=1 

DIM L$(5) 

AZINTCRND(1) #541) 

FOR Ist! TO Š 

READ L$(C1) 

WEXT I 

DATA "SUPERB","600D" , "FAIR", "POOR", “AWFUL” 

PRINT "YOU HAVE DRAUN A ";1%(А);" BULL." 

IF А24 THEN 330 

IF А<2 THEN 550 

GOTO 570 

PRINT "YOU'RE LUCKY." 

GOTO 570 

PRINT “GOOD LUCK. YOU LL NEED IT." 

PRINT 

PRINT 

as="PICADO® 

B$="RES" 

GOSUB 1610 

(12-0 

ASs"TOREAD" 

B$z"ÜüRES" 

GOSUB 1610 

D(2)=C 

PRINT 

PRINT 

IF 141 THEN 1310 

D(3)=D(3)+1 

PRINT "PASS NUMBER";D(3) 

IF D(3)€3 THEN 760 

PRINT "HERE COMES THE BULL. TRY FOR А KILL"; 

50508 1930 

IF 1141 THEN 1130 

PRINT "CAPE MOVE"; 

GOTO 800 

PRINT "THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" 
PRINT "DO YOU WANT TO KILL THE BULL"; 

GOSUB 1930 

IF 7151 THEN 1130 

PRINT “WHAT HOVE DO YOU MAKE WITH THE CAPE"; 

INPUT E 

IF EC INTCABS(CE)) THEN 830 

IF EX3 THEN 850 

PRINT "DON’T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUNBER* 
GOTO 800 

REM 

IF Es0 THEN 920 

IF Est THEN 900 

hz. 

GOTO 730 

H=2 

GOTO 730 

Keg 

L=L+M1 

F=(á-ñ+H/10)*RND(1)/((D(1)+D(2)+D(3)/10)*5) 

IF Е<.51 THEN 660 

PRINT "THE BULL HAS GORED YOU" 

ON ҒНА(0) GOTO 980,1010 

PRINT "YOU ARE DEAD" 

ІК4)51.8 


1000 GOTO 1310 


1010 
1020 
1030 
1035 
1040 
1050 
1060 
1070 
1080 
1070 
1100 
1110 
1120 
1130 
1140 
1150 
1155 
1160 
1170 
1180 
1190 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1395 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1470 
1680 
1470 
1700 
1719 
1720 
1730 
1740 
1759 
1780 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1870 
1900 
1910 


PRINT "YOU ARE STILL ALIVE" 

PRINT "DO YOU RUN FROM THE RING"; 

GOSUB 1930 

IF 71-2 THEN 1070 

PRINT "COUARD" 

D(4)=0 

GOTO 1310 

PRINT "YOU ARE BRAVE. STUPID, BUT BRAVE." 
ON FNACO) GOTO 1090,1110 

D(4)=2 

GOTO 660 

PRINT "YOU ARE GÜRED AGAIN" 

GOTO 970 

REH 

251 

PRINT "IT IS THE HGMENT OF TRUTH." 

PRINT "HOW DO YOU TRY ТО KILL THE BULL"; 
INPUT H 

IF Hs4 THEN 1230 

IF H=5 THEN 1230 

PRINT "YOU PANICKED. THE BULL GORED YOU." 
GOTO 970 


KzCé-A&108RNDCI)/CCODCL)42D(2) V&58D (39) 
IF Ј=4 THEN 1290 

IF К›.2 THEN 940 

PRINT "YQU KILLED THE BULL" 
D(S)=2 

8070 1320 

IF K>.8 THEN 960 

GOTO 1260 

PRINT 

PRINT 

PRINT 

IF D(4)<>0 THEN 1390 


PRINT "THE CROWD BOOS FOR TEN MINUTES. ІР YOU EVER DARE TO SHOW" 
PRINT "YOUR FACE IN A RING AGAIN, THEY SWEAR THEY WILL KILL Y0U--" 
PRINT "UNLES THE BULL DOES FIRST." 

GOTO 1580 

DEF FNC(Q)=FND(Q)4RND(1) 

DEF FNDCD)ZCA.S4L/8- (DCT) 40(2))52.5548D CA 3280 (S) -DCI) ^2/120-A1 
IF D(4)<>2 THEN 1430 

PRINT "THE CROWD CHEERS WILDLY" 

GOTO 1450 

IF D(5)O2 THEN 1450 

PRINT "THE CROWD CHEERS" 

PRINT "THE CROWD AWARDS YOU" 

IF FNC(Q)<2.4 THEN 1570 

IF FNC(Q)<4.9 THEN 1550 

IF FNC(Q)<7.4 THEN 1520 

PRINT “OLE! YOU ARE “HUY HOHBRE'!! OLE! OLE!" 

GOTO 1580 

PRINT “BOTH EARS OF THE BULL" 

PRINT "DLE!" 

8070 1580 

PRINT “ONE EAR OF THE BULL" 

GOTO 1580 

PRINT "NOTHING AT ALL" 

PRINT 

PRINT "ADIOS" 

GOTO 2030 

B=3/ñ*RND(1) 

IF B<.37 THEN 1240 

IF B<.5 THEN 1720 


IF B<.63 THEN 1700 1920 REM 

IF B<.87 THEN 1680 1930 INPUT AS 

Uz.1 1940 IF AS="YES" THEN 1990 
GOTO 1750 1950 IF AS="NO" THEN 2010 
C=.2 1970 PRINT “INCORRECT ANSWER ~ - PLEASE ТҮРЕ “YES” OR НО." 
8070 1750 1980 GOTO 1930 

{=.3 1990 Zizi 

GOTO 1750 2000 GOTO 2020 

£2.4 2010 11-2 

8010 1250 2020 RETURN 

Ce.5 2030 END 

T=INT(10#C+.2) 


PRINT "THE "РАЗ" DID A “GLS(T);" JOB." 

IF 4»T THEN 1900 

IF =f THEN 1870 

ON FNA(K) GOTO 1830,1850 

IF AS="TOREAD" THEN 1820 

PRINT "ONE OF THE HORSES OF THE ";4$;B$;" WAS KILLED." 
OF FNA(K) GOTO 1830,1850 

PRINT "ONE OF THE ";4$;8$;" WAS KILLED." 

GOTO 1900 

PRINT "NO ";A$;B$;" WERE KILLED." 

GOTO 1900 

IF AS="TOREAD" THEN 1890 

PRINT FNACK);"OF THE HORSES OF THE ";4$;93;" KILLED." 
PRINT FRACK);°OF THE ";A$;B$;" KILLED." 

PRINT 

RETURN 
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Bullseye 


In this game, up to 20 players throw 
darts at a target with 10-, 20-, 30-, and 


40-point zones. The objective is to get e 
200 points. 
You have a choice of three methods 
of throwing: ` ` 
Throw Description Probable Score 
1 Fast overarm Bullseye or complete miss 
2 : 
2 gontrolled overarm 10, 20, or 30 points ROUND & DARTH^S THROU? 2 
erar nything , А WHEW! 10 POINTS. 
You will find after playing a while that STEVE S АШ ! TOTAL SCORE = 50 
different players will swear by different TOTAL SCORE = 120 ROUND 9 
strategies. However, consider the ex- 
pected score per throw by always using DARTH^S THROW? 2 STEVE^S THROU? 2 
Throw 3 (program line 220): ШЕШ! 10 POINTS. 20-POINT ZONE 
TOTAL SCORE = 40 TOTAL SCORE = 190 
Score (S) Probability (P) SxP ROUND 7 DARTH’S THROU? 1 
40 1.00-.95 = .05 2 MISSED THE TARGET! TOO BAD. 
30 .95-.75 = .20 6 8ТЕМЕ8 THROW? 2 TOTAL SCORE = 50 
30 75-45 = 30 6 и, 
.75-.45 =. TOTAL SCORE = 130 ROUND 10 
10 .45-.05 = .40 4 
0 .05-.00 = .05 0 DARTH’S THROW? 3 STEVE’S THROU? 2 
—— MISSED THE TARGET! TOO BAD. 20-PDINT ZONE 
Expected score per throw = 18 TOTAL SCORE = 40 TOTAL SCORE = 210 
Calculate the expected scores for the ROUND 8 рати” ТНКОЦ? 1 
š SED THE TARGET! 100 BAD. 
other throws and you may be sur STEVES THROU? 1 TOTAL SCORE = 50 
prised! BULLSEYE!! 40 POINTS! 
The program was written by David TOTAL SCORE » 170 UE HAVE A WINNERI! 
Ahl of Creative Computing. 
STEVE SCORED 210 POINTS. 
BULLSEYE - THANKS FÜR THE GAME, 


CREATIVE COMPUTING MORRISTOWN, NEN JERSEY 
5 PRINT TAB(32); "BULLSEYE" 


IN THIS GAME, UP TO 20 PLAYERS THROU DARTS AT A TARGET 10 PRINT TAB(15);"CREATIVE CONPUTING MORRISTOWN, NEU JERSEY" 
WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE 15 20 PRINT:PRINT:PRINT 
10 GET 200 POINTS. 30 PRINT "IN THIS GAHE, UP TO 20 PLAYERS THROW DARTS AT A TARGET" 
40 PRINT “WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS" 
THROW DESCRIPTION PROBABLE SCORE 50 PRINT "TÜ GET 200 POINTS.": PRINT 
1 FAST OVERARK BULLSEYE OR COMPLETE HISS 60 PRINT "THROW", ТАВ (20); “DESCRIPTION; ТАВСА5) ; "PROBABLE SCORE" 
2 CONTROLLED QVERARH 10, 20 OR 30 POINTS 70 PRINT" 1";TAB(20) ;"FAST OVERARH";TAB(AS) ; "BULLSEYE OR COMPLETE HISS" 
3 UNDERARM ANYTHING 80 PRINT" 2"; TAB(20) ;"CONTROLLED OVERARN";TAB(45);"10, 20 OR 30 POINTS" 
90 PRINT" 3"; IAB(20) ; " UNDERARH^ ; TAB (A5) ; "ANYTHING" :PRINT 
HOU MANY PLAYERS? 2 STEVE’S THROW? 1 100 DIM 4A9(20),8(20),U(10): М=0: RzO: FOR 1-1 Т0 20: 5(19:0: NEXT I 
20-POINT ZONE 110 INPUT “HOU MANY PLAYERS";N: PRINT 
МАНЕ OF PLAYER H 1 ? STEVE TOTAL SCORE = 50 120 FOR 1=1 TO N 
NAME OF PLAYER H 2 7 DARTH 130 PRINT “NAHE OF PLAYER W";I;:INPUT А$(1) 
DARTH S THROW? 1 140 NEXT I 
ROUND 1 MISSED THE TARGET! 700 BAD. 150 R=R+1: PRINT: PRINT "ROUND";R 
TOTAL SCORE = 10 160 FOR I=t TON 
STEVE’S THROW? 1 120 PRINT: PRINT A$(I)"^8 THROU" 3: INPUT T 
30-POINT ZONE! ROUND 4 180 IF T<O OR T>3 THEN PRINT "INPUT 1, 2, OR 3!": GOTO 170 
TOTAL SCORE = 30 , 190 ON T GOTO 200, 210, 200 
STEVE^S THROU? 2 200 Piz.á5: Р2=.55: Р3=.5: Р4=.5: GOTO 230 
DARTH^S THROW? 2 MISSED THE TARGET! 700 BAD. 210 Р1:.99: Р2:.77: Р3в.43: Р4-.01: GOTO 230 
WHEW! 10 POINTS. TOTAL SCORE = 50 220 Р1=.95: Р2=.75: Р3:.45: P4-.05 
TOTAL SCORE = 10 230 U=RND(1) 
DARTH’S THROW? 2 240 IF U>=P1 THEN PRINT “BULLSEYE!! 40 POINTS!":Bs40: GOTO 290 
ROUND 2 20-POINT ZONE 250 IF U»-P2 THEN PRINT "30-POINT ZOHE!":8-30: GOTO 290 
TOTAL SCORE = 30 260 IF U>=P3 THEN PRINT "20-POINT Z0NE":8-20: GOTO 290 
STEVE^S THROW? 3 270 IF U>=P4 THEN PRINT “WHEW! 10 POINTS.":B-10: GOTO 290 
MISSED THE TARGET! TOO BAD. ROUND 5 280 PRINT "HISSED THE TARGET! Т00 BAD.": В=0 
TOTAL SCORE = 30 290 S(I)=S(I)+B: PRINT "TOTAL SCORE =";S(I): NEXT I 
STEVE^S THROW? 1 300 FOR Is1 TON 
DARTH^S THROU? 1 BULLSEYE!! 40 POINTS! 310 IF S(1)22200 THEN М=Н+1: U(B)=I 
MISSED THE TARGET! TOO BAD. TOTAL SCORE = 90 320 NEXT I 
TOTAL SCORE = 10 330 IF K=O THEN 150 
DARTH^S THROU? | 340 PRINT: PRINT "UE HAVE A UINNER!!”: PRINT 
ROUND 3 MISSED THE TARGET! TOO BAD. 350 FOR I=} TO M: PRINT AS(UCII)" SCORED";S(UCID;"POINTS.": NEXT 1 
TOTAL SCORE = 30 360 PRINT: PRINT “THANKS FOR THE GAME.": END 
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Bunny 


BUNNY 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


UN 
BUN BUNNYB 
BUNNY NYBUNNYBUN 
BUNNYBUN UNNYBUNNYBUN 
UNNYBUNNY NNYBUNNYBUNNYB 
ANYBUNNYBU UNNY BUNNY BUNNYB 
NYBUNNYBUNN YBUNNYBUNNYBUNNY 
YBUNNYBUNNY NNY BUNNY BUNNY BUNH 
BUNNY BUNNY UNHY BUNNY BUNNY BUN 
UNNYBUNNTBU BUNNY BUNNY BUNNYB 10 PRINT TAB(33)5 "BUNNY" 
NNYBUNNYBUN YBUNNY BUNNY BUNNY 20 PRINT TAB(IS);"CREATIUE COMPUTING MORRISTOWN, NEU JERSEY" 
NYBUNNYBUNNY NYBUNNY BUNNY BUNN 30 PRINT: PRINT: PRINT 
YBUNNYBUNNYB NNYBUNNY BUNNY BU 100 REM “BUNNY” FROM AHL^S “BASIC COMPUTER GANES” 
BUNNYBUNNYBU — UNNYDUNHYBUNNYD 110 REM 
UNNYBUNNYDUN | BUNNYBUNNYBUNN 120 FOR 1-0 TO 4: READ BAL): NEXT I 


NNYBUNNYBUN YBUNNYBUNNYBU 


130 GOSUB 260 
NYBUNNYBUNNYBUNNYBUNNY 


140 1:64: REM ASCII LETTER CODE... 


YBUNNYBUNNYBUNNYBUNN 150 REM 
BUNNYBUNNYBUNNYBU 140 PRINT 
NNYBUNNYBUNNY , 170 READ X: IF X«0 THEN 160 
NYBUNNYBUN 175 IF 00128 THEN 240 
YBUNNYBU 180 PRINT TAB(X);: READ Y 
UNNYBUNNYBUNN 190 FOR [=X TO Y: J=I-5*INT(I/5) 
NYBUNNYBUNNTBUNNYB 200 PRINT CHRS(L#B(J))$ 
UNNYBUNNYBUNNYBUNNYBU 210 NEXT I 
BUNNYBUNNYBÜNNYBUNNYBUN 220 GOTO 170 
NYBURNY BUNNY BUNNY BUNNY BUNN 230 REM 
RNY BUNNY BUNNY BUNNY BUNNY BUNNY 240 GOSUB 260: GOTO 450 
UNNYBUNN UNNYBUNNYBUNNYBUNNY 250 КЕН 
BUNNYBUN — UNNYBUNNYBUNNYBUNNYB 260 FOR 1=1 TO 6: PRINT CHR$(10);: NEXT I 
YBUNNYBUN — UNNYBUNNYBUNNYBUNNYB 270 RETURN 
NYBUNNYBUN BUNNYBUNNYBUNNYBUNNYB 280 REM 


NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNYB 
UNNYBUNNTBUNNYBUNNYBUNNYBUNNYBUNNYB 
NNYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 
NYBUNNYBUNNYBUNNYBUNNYBUNNYBUNNY 


290 DATA 2,21,14,14,25 
300 DATA 1,2,-1,0,2,45,50,-1,0,5,43,52,-1,0,7,41,52,-1 
310 DATA 1,9,37,50, 1,2, 11,36,50, -1,3,13,34,49,-1,4,14,32, 48, -1 


YRÜNNY BUNNY BUNNYBUNNYBUNNY BUNN 320 DATA 5,15,31,47,-1,6,16,20,45,-1,7,17,29,44,-1,8,19,28,43,-1 
330 DATA 9,20,27,41,-1,10,21,26,40,-1,11,22,25,38,-1,12,22,24,36,-1 
UNNY BUNNTBUNNYBUNNYBUNNYTBUNN 
340 DATA 13,34,-1,14,33,-1,15,31,-1,17,29,-1,18,27,-1 
BUNNYBUNNYBUNNYBUNNYBUN Y 
YBUN YBUNNYB NYBU B 350 DATA 19,26,-1,16,28,-1,12,30,-1,11,21,-1,10,32,-1 
BUNNY NYBUNNYD U 360 DATA 8,53,-1,7,24,-1,8,12,16,24,-1,5,12,16,35,-1 
370 DATA 4,12,16,35,-1,3,12,15,25,-1,2,25,-1,1,35,-1 
Mie ! RUN. ы кі 380 DATA 2,34,-1,3,34,-1,4,33,-1,6,33,-1,10,32,34,24,-1 
NH YBUNNYBUNNYBUNNY UNN 390 DATA 14,17,19,25,28,31,35,35, -1,15,19,23,30, 36,36, -1 
UNN нт N YBURNYBU 400 DATA 14,18,21,21,24,30,37,37,-1,13,18,23,29,33,38,-1 
BU ин NY Y 410 DATA 12,29,31,33,-1,11,13,12,17,19,19,22,22,24,31,-1 
NN иннї 420 DATA 10,11,12,18,22,22,24,24,29,29, -1 
MM 430 DATA 22,23,26,29,-1,27,29,-1,28,29,-1,4094 
440 REM 
NY 
450 END 
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Buzzword 


This program is an invaluable aid for 
preparing speeches and_ briefings 
about educational technology. This 
buzzword generator provides sets of 
three highly-acceptable words to work 
into your material. Your audience will 
never know that the phrases don't 
really mean much of anything because 
they sound so great! Full instructions 
for running are given in the program. 

This version of Buzzword was written 
by David Ahl. 


BUZZWORD GENERATOR 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN 


"EDUCATÜR-SPEAK^THAT YOU CAN WORK INTO REPORTS 


AND SPEECHES, WHENEVER A QUESTION MARK IS PRINTED, 


TYPE A “Y” FOR ANOTHER PHRASE OR “N° TO QUIT. 
HERE^S THE FIRST PHRASE: 
ABILITY VERTICAL AGE PERFORHANCE 


77 
DIFFERENTIATED CREATIVE FACILITY 


? Y 
MANIPULATIVE LEARNING ENVIRONMENT 


? Y 
ABILITY CREATIVE GROUPING 


? Y 

TAVISTOCK NON-GRADED REINFORCEMENT 
? Y 

MODULAR MOTIVATIONAL FACILITY 

TY 

TAVISTOCK HUMANISTIC REINFORCEMENT 
„ү 

DISCOVERY MOTIVATIONAL GROUPING 

? Y 

HETERÜGENEQUS VERTICAL AGE PROCESS 
? Y 

ABILITY LEARNING PROCESS 

? Y 

FLEXIBLE TRAINING CORE CURRICULUM 
эн 


COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT! 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
130 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
999 
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PRINT TAB(26);"BUZZWORD GENERATOR" 

PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
PRINT:PRINT:PRINT 

PRINT "THIS PROGRAM PRINTS HIGHLY ACCEPTABLE PHRASES IN" 
PRINT "'^EDUCATOR-SPEAK^THAT YOU CAN WORK INTO REPORTS" 
PRINT "AND SPEECHES. WHENEVER A QUESTION MARK IS PRINTED," 
PRINT "ТҮРЕ A ^Y" FOR ANOTHER PHRASE OR “N” TO QUIT.” 
PRINT:PRINT:PRINT "HERE'S THE FIRST PHRASE:" 

DIM А$(40) 

FOR 151 TO 39 : READ АІ) : NEXT I 

PRINT ASCINTCHISSRNDUD $1225" "5 

PRINT ASCINTCIS#RND( D414) 05" "5 

PRINT ASCINTCES#RND(1)427)) : PRINT 

INPUT Y$ : IF Y$z"Y" THEN 110 ELSE GOTO 999 

DATA "ABILITY", "BASAL", "BEHAVIORAL", "CHILD-CENTERED” 

DATA "DIFFERENTIATED", "DISCOVERY", "FLEXIBLE", "HETEROGENEOUS" 
DATA "HOMOGENEOUS", "MANIPULATIVE", "MODULAR", "TAVISTOCK" 
DATA "INDIVIDUALIZED", "LEARNING", "EVALUATIVE", "OBJECTIVE" 
DATA "COGNITIVE", "ENRICHMENT", "SCHEDULING", "HUMANISTIC" 
DATA "INTEGRATED", "NON-GRADED" "TRAINING", "VERTICAL AGE" 
DATA "MOTIVATIONAL", "CREATIVE", "GROUPING", "MODIFICATION" 


ВАТА "ACCOUNTABILITY", "PROCESS", "СОВЕ CURRICULUM", "ALGORITHM" 


DATA 
DATA 


"PERFORMANCE", "REINFORCEMENT", "ОРЕН CLASSROOM", "RESOURCE" 
"STRUCTURE" , "FACILITY", “ENVIRONMENT” 


PRINT "COME BACK WHEN YOU NEED HELP WITH ANOTHER REPORT! "SEND 


Calendar 


This program prints out a calendar 
for any year. You must specify the 
starting day of the week of the year in 
Statement 130. (Sunday (0), Monday 
(-1), Tuesday (-2), etc.). You can deter- 
mine this by using the program WEEK- 
DAY. You must also make two changes жо 59 tt tssesstaa e tes НАВСН eben 306 ++ 
for leap years in Statements 360 and 


SM : С н T u T F 8 
620. The program listing describes the 
necessary changes. Running the BREEESESEESERER SER REEEEEEEEE ТЕТЕ ТЕТІГІ 
program produces a nice 12-month 
calendar. ! 2 3 ^ 
The program was written by Geof- 5 n 7 8 9 10 n 

frey Chase of the Abbey, Portsmouth, 
Rhode Island. 12 13 14 15 16 12 18 

19 20 21 22 23 24 25 

26 27 28 29 30 31 


зе 90 эээн ҮЗҮК APRIL 3923933533 0930936840 275 ++ 
8 n T u I F § 
9%8948%9%%0898858599%899688%%09%998%85099%985593%55583%99%65% 


1 


2 3 4 5 6 7 a 
? 10 n 12 13 14 15 
p 16 17 18 1? 20 21 22 
CALENDAR 
CREATIVE COMPUTING  HORRISTOUN, НЕШ JERSEY ?3 24 23 26 37 28 ' 29 
30 
** Ü — téktetesiestetthso JANUARY restera 345 +$ 3% 120 t*eetsa tiet зн HAY — (eeepeepeRCOEOOER. 245 ж 
E] н T у T F $ 8 Н T u T F s 
ы лы, Маш ЕТТ ТРЕТ Р Н EE UG E E 
1 2 3 4 3 6 ? ! 2 3 4 5 6 
8 9 10 и 12 13 14 7 8 9 10 11 12 13 
15 16 17 18 19 20 21 14 15 16 17 18 19 20 
22 23 24 25 24 27 28 21 22 23 24 25 26 27 
29 30 31 28 29 30 3 
3% 3Í xxtékkesttetesese* FEBRUARII EHE ax 334 +4 +4 151 ctetsesereeseseess JUNE Эээзффдавззезейзе» 214 өз 
6 u T u T F E] 8 4 T u T F 8 
XOETEERERSTAEEEEERSESRSETERSEEREREEEEUU аваз еа GER ENSE зовооно вовек аца чазз аера азоне 
1 2 3 4 1 2 3 
5 é 7 8 9 10 it 4 3 6 ? 8 ? 10 
12 13 14 15 16 17 18 MA 12 13 14 15 16 17 
1? 20 21 22 23 24 25 18 19 29 21 22 23 24 
28 27 28 25 26 27 28 29 30 
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++ 181 **&ktr ee e eae JULY reeoneemenmbeeoe 184 x 
8 B T u T F 8 
БАА 


1 


2 3 4 5 6 7 8 
% 10 1 12 13 14 15 
16 17 18 1? 20 21 22 
23 24 25 26 27 28 29 
30 я 


9% 212 seseceseceseoeaees AUGUST #2ee400R48 0080430 153 +% 
8 B T W T F 8 


36t*t9$6k$otttettes9otO3 3o ESE SEEKS TER EER ET SAA ESEE TARDE ETEN 


1 2 i 4 3 
6 7 8 ? 10 п 12 
13 14 15 té 17 18 19 
20 21 22 23 24 25 26 
27 28 29 30 31 


же 242 жәтеекете таз тәте СЕРТЕНВЕНЗ езен жежлезжезіе 122 жә 
8 H T u T F 8 


A**kkkk* e usetkkE EE t 9 ETE ORES tto eee TERRES OORGGOE GCE таар 


1 2 
3 4 3 á ? 8 9 
10 1 12 13 14 15 14 
17 18 19 20 4 22 23 
24 25 26 27 28 2? 30 


же 273 tasoteseeeoteeste OCTOBER &ieeeeieiaeeio 92 жә 
8 HB T u T F 8 


%%%%%%8%000%%8%09096%%%%% ESHEETS ER EE E e DRS EO EE E EEE ETE S CEES 


1 2 3 4 5 é 7 
8 ? 10 " 12 13 14 
15 16 17 18 1? 20 21 
22 23 24 25 26 27 28 
2? 30 31 


зо 204 t*tsssvestestietetes КОУЕНВЕ аза каз IO EG GE. ó] жә 
8 H T u T F 8 


bhh ddd EEE EITE EEES SS Әже teet e EE EE EEEE EEE EEE EET EET ETE EE 


1 2 3 4 
3 6 7 8 ? 10 n 
12 13 14 15 16 17 18 
1? 20 21 22 23 24 28 
26 27 28 2? 30 


** 334 еә%906%%%6690%%6%9 ПЕСЕНВЕК жаа жәзе жез 31 зж 


8 H T u T F 8 


ДАДЕ 


1 2 
3 4 5 6 7 8 9 
10 1 12 їз 14 15 16 
177 18 1? 20 21 22 23 
24 25 26 27 28 29 30 


31 


10 PRINT TAB(32) "CALENDAR" 
20 PRINT ТАВ(15); CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINT:PRINT:PRINT 


100 
110 
120 
130 
140 
190 
180 
170 
180 
190 
200 
210 
220 
230 
240 
330 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
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REH VALUES FOR 1978 - SEE NOTES 

DIN H(12) 

FOR I=1 TO 6: PRINT СНЕҘ(10);: NEXT I 

D-0: REN 1978 STARTS ON SUNDAY (O=SUN, ~1=МОН, ~2=TUES...) 
$20 

REH READ DAYS OF EACH HONTH 

FOR NsQ TO 12: READ HON): NEXT N 

REN 

FÜR N»1 TO 12 

PRINT: PRINT: S=S+H(N-1) 

PRINT "52*;5; TAB(2); 

FOR 151 TO 18: PRINT 49%); NEXT I 

ON R GOTO 230,240,250,260,270,280,270,300,310,320,330,340 
PRINT " JANUARY “ss GOTO 350 

PRINT " FEBRUARY";: GOTO 350 

PRINT " HARCH "j: GOTO 350 


НВ 
PRINT " APRIL ";: GOTO 350 
PRINT " HAY “i: GOTO 350 
PRINT " JUNE "у: GOTO 350 
PRINT * JULY "š; GOTO 350 
PRINT " AUGUST "у: GOTO 350 
PRINT "SEPTEMBER";: GOTO 350 
PRINT " OCTOBER "у: GOTO 350 


PRINT " NOUEHBER";: GOTO 350 
PRINT " DECEMBER"; 

FOR Is1 TO 18: PRINT "ж";: NEXT I 
PRINT 145-8;"se*; 

ВЕН 364-5; ON LEAP YEARS 
PRINT CHR$(10): PRINT " 5 H T u"; 
PRINT " T F s” 
PRINT 

FOR 151 TD 59: PRINT “э”: NEXT I 
REN 

FÜR 021 TO 6 

PRINT CHR$(10) 

PRINT ТАВ(4) 

ВЕН 

FÜR G=1 70 7 

D=D+1 

D22D-5 

IF D2»N(N) THEN 580 

IF D2>0 THEN PRINT D2; 

PRINT ТАВ(4+8%0); 

NEXT 8 

REH 

IF D2-M(M) THEN 590 

NEXT U 

REH 

D=D-6 

NEXT N 

ВЕН 

FOR I=} TO 6: PRINT CHR$(10);: NEXT I 
DATA 0,31,28,31,30,31,30,31,31,30,31,30,31 
REM 0,31,29, ..., ON LEAP YEARS 
ERD 


In this program, the computer 
pretends it is the cashier at your 
friendly neighborhood candy store. 
You tell itthe costofthe item(s) youare 
buying, the amount of your payment, 
and it will automatically (!) determine 
your correct change. Aren't machines 
wonderful? Dennis Lunder of People's 
Computer Company wrote this 
program. 


CHANGE 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE 
THE CORRECT CHANGE FOR ITENS COSTING UP TO $100. 


COST OF ITEM? 80.80 
AMOUNT OF PAYMENT? 100 
YOUR CHANGE, $ 19.20 

| TEN DOLLAR BILL(S) 

i FIVE DOLLARS BILL(S) 

4 ONE DOLLAR BILL(S) 

1 DIME(CG) 

1 NICKELC) 

5 PENNY(S) 
THANK YOU, COME AGAIN. 


COST OF ITEM? .19 
AMOUNT OF PAYMENT? 1.00 
YOUR CHANGE, $ .8i 

1 ONE HALF DÜLLAR(S) 

1 QUARTER(S) 

1 NICKEL(S) 

1 PENNY(S) 
THANK YOU, COME AGAIN. 


COST OF ITEM? 1.01 
AMOUNT OF PAYMENT? 5 
YOUR CHANGE, $ 3.99 
3 ONE DOLLAR BILL(S) 
1 ONE HALF BOLLAR(S) 
1 QUARTER(S) 
2 DIHE(S) 
4 PENNY(S) 
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PRINT ТА8(33); "CHANGE" 


PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 


2 

4 

S PRINT:PRINT:PRINT 

6 PRINT "I, YOUR FRIENDLY MICROCOMPUTER, WILL DETERMINE" 
8 

9 


PRINT "THE CORRECT CHANGE FÜR ITEMS COSTING UP TO $100." 


PRINT:PRINT 


10 PRINT “COST OF ITEH";:INPUT A:PRINT "AMOUNT OF PAYMENT";:INPUT P 


20 C=P-ASMECSIF COO THEN 90 

25 PRINT "CORRECT AMOUNT, THANK YOU." 
30 GOTO 10 

90 IF С>0 THEN 120 

95 PRINT "SORRY, YOU HAVE SHORT-CHANGED ME $";à-P 
100 GOTO 10 

120 PRINT "YOUR CHANGE, $";C 

130 D:INT(C/10) 

140 IF р=0 THEN 155 

150 PRINT D;"TEN DOLLAR BILL(S)" 
155 С=н-(0+10) 

160 E=INT(C/5) 

170 IF E=0 THEN 185 

180 PRINT E;"FIVE DOLLARS BILL(S)" 
185 Csti- CD*104E93) 

190 FzINT(O 

200 IF Ғ=0 THEN 215 

210 PRINT F;"ÜNE DOLLAR BILL(S)" 
215 CzH- CD*104Ev SF) 

220 C-C*100 

225 NEC 

230 G=INT(C/50) 

240 IF 6-0 THEN 255 

250 PRINT G;"ONE HALF DOLLAR(S)" 
255 С=Н-(6%50) 

260 HzINT(C/25) 

270 IF Hz0 THEN 285 

280 PRINT H;"QUARTER(S)" 

285 C»N-(G*50*H925) 

290 I:INT(C/10) 

300 IF 1-0 THEN 315 

310 PRINT I;"DIHECS)" 

315 C=N-(B5*50+H*25+1%10) 

320 J=INT(C/5) 

330 IF Ј=0 THEN 345 

340 PRINT J;"NICKEL (S)" 

345 CoN-(64504H0254 14104095) 

350 K=INT(C+.5) 

360 IF K-0 THEN 380 

370 PRINT K;"PENNY(S)" 

380 PRINT "THANK YOU, COME AGAIN." 
390 PRINT:PRINT 

400 GOTO 10 

410 END 


Checkers 


= — 2,2 FRONT 4,0 
10? 3,1 


Tü? 3,3 
FROM 0 6101 5 FROH O 4102 2704 0 

This program plays checkers. The 
pieces played by the computer are marked e X . X . XY e. X ото. X . X . X 
with an "X", yours are marked "O". A 
move is made by specifying the coordi- Qo X E s Y s o X - X . X . 
nates of the piece to be moved (X, Y). 2X , X. X e. X x x X 
Home (O,O) is in the bottom left and X ` T ` ` . 
specifies distance to the right of home (i.e., [X + + + LZ P ° И 
column) and Y specifies distance above 2. . 9. . . . 0 
home (i.e., row). You then specify where ` ` ° ` ` ` ` 
you wish to move to. а... DD . 0 . . + 5. 5. D . У 

The original version of the program by 0 0 0 0 
Alan Segal was not able to recognize (or ` ` ` ` 4.0.0 2.0. 4 
permit) a double or triple jump. If you tried 0 . 0 . 0 . 0 . 0 . 0 . w . 0 
one, it was likely that your piece would dis- FRO? 0.2 
appear altogether! ' 

Steve North of Creative Computing DNO AT2 2 Tt 53 
rectified this problem and Lawrence FRON 4 0 TO 6 2 TO 4 4 T0 2 2 
Neal contributed modifications to 
allow the program to tell which player EX X . X S. X X X 
has won the game. The computer does 2. X. X . X. ! ` ок. а 
not play a particularly good game but 0. X. X . X. 
we leave it to you to improve that. 2 €4 o e. X . X e. X , ; 

CHECKERS MM . * 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY ИНИНИ 
. а... 

THIS 18 THE GAME OF CHECKERS. THE COMPUTER IS X, 200. у. в. о. ` ` t ° to t t ` 
AND YOU ARE 0. THE COMPUTER WILL HOVE FIRST. 


SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM. 
(0,0) IS THE LOUER LEFT CORHER ` 


. 0 . . А А . 0 
(0,7) IS THE UPPER LEFT CORNER 


(2,0) IS THE LOWER RIGHT CORNER 0 . 0 . 0 . 0 . б.о 0... . 

(7,7) 19 THE UPPER RIGHT CORNER 

THE COMPUTER WILL TYPE ^*TO^ UHEN YOU HAVE ANOTHER FRON? 3,1 FRONT 1,1 

JUMP. ТҮРЕ TWO MEGATIVE NUMBERS IF YOU CANNOT JUMP. TOY 1,3 10? 3,3 

4107 -1,-1 410? -1,-1 

FRON 1 5 TOO 4 FROM STOO а FROM 2 4 TO | 5 
‚ох 0. X 0. X o. X . X . X . X . X . X . X , X e. X 
X А X . X . X . А X А X . Х . . . ` ` X . X . 
. ‚охо. X x ‚о. + X , X . X . X 0. X . X , X 
X +, + + k +k x+ + X , +. + ‘e ` + + + + k x <+ 
` + + k k k “+ 2080.08... . e. + Ü o. o. os s 
0 . 0 . 090 . 9 20... 9. Db . с... 9. 0... 
. 0 . D . 0 . а 209. . + 0 . а с... + + + Ü 
обо. 0 . D . Q0 . б.о 0 . 0 . ü . б. 0 . . . 0 . 


40 


FROHT 0,0 
To? 1,1 


FROM 1 5700 4 


FROM? 1,1 
T0? 2,2 
FRON 5 


кант! 2,1 
TO? 2,4 
FROM 5 5 


FRONT 0,2 
FROHT 2,0 
10% 3,1 

FROM 4 4 


TO 4 


то á 


TO 5 


5 PRINT TAB(32) ; " CHECKERS" 

10 PRINT TAB(IS);"CREATIVE COMPUTING  MORRISTOUN, NEW JERSEY" 
15 PRINT:PRINTIPRINT 

20 PRINT "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X," 
25 PRINT "AND YOU ARE 0. THE COMPUTER WILL MOVE FIRST." 

30 PRINT "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM." 

35 PRINT "(0,0) IS THE LOUER LEFT CORHER" 

AQ PRINT "(0,7) IS THE UPPER LEFT CORNER" 

45 PRINT “(7,0) IS THE LOWER RIGHT CORNER" 

$0 PRINT "(7,7) IS THE UPPER RIGHT CORNER" 

85 PRINT "THE COMPUTER WILL TYPE "*TO^ WHEN YOU HAVE ANOTHER" 
60 PRINT "JUMP. TYPE TUO NEGATIVE NUMBERS IF YOU CANNOT JUMP." 
65 PRINT:PRINT:PRINT 

80 ШІН RC4,8(2,7):8z-T:R(0) 5-99 

90 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 

120 FORX=0TO7:FORY=0107:READJs IFJ-1STHEN180 

160 S(X,Y)=J:60T0200 

180 RESTÜRE:READS(X, Y) 

200 NEXTY,X 

230 FÜRX-OTÜZ:FÜRY-OTQ7: IFS(X, Y) ?-1THEN2SO 

310 IFS(X, Y) s- E THENFORA=~-11T01STEP2:8=6 :GOSUB650:NEXTA 

330 IFS(X, ¥}=~2THENFORA=~1101STEP2:FORB=-1101STEP2:GOSUBGSO:NEXTB,A 
350 NEXTY,X:60T01140 

650 U=X+AsV=Y+Bs IFUCODRUS2DRUCOORV» 7 THENB70 

740 IFSCU,U) -OTHENGOSUBS10:6010870 

770 IFS(U,U) COTHENB70 

790 Шера: у= 0+В: IFUCOORUCODRUS7ORVS 7 THENB70 

850 IFS(U,U) -0THENDOSUBS10 

870 RETURN 

910 IFU-QANDS(X, ¥)=-1THENG=042 

920 IFABS(Y-U)s2THEND-D45 

960 IFYs7THENO-Q-2 

980 IFU=00RU=7 THENO=0+1 

1030 FOÜRC--1TOISTEP2: IFUFCXODRUAC? 7ORU+G<0THENTORO 

1035 IFS(U£C, UG) OTHENOSO41:60101080 

1040 IFU~C<OORU-C>70R¥-G>7 THENT O80 

1048 IFS(UFC, VG) >0AND(S(U-C, U-G) =O0R(U-C=XANDY-G=Y ) ) THEND=0-2 
1080 NEXTC: IFÜDRCO)THENR CO) eQzR CL SX S RCD SY: R CD) SUR =V 

1100 Q-O:RETURN 

1140 IF R(0)--99 THEN 1880 

1230 PRINTCHRS (30) "FROM"RCL) ;5RCO)" TO"RGD (4) z: RU) 9-99 

1240 IFRODSQTHENS UL GD ,R CA) 22-2: 60101420 

1250 S(UD RODOSSURCD , RED) 

1310 S(RCD RD) 70: IFABSOCD -RGD ) O2 THER 1420 

1330 SCC RGD)/2, (RCO4RGDO /2150 

1340 XcR (3 cYsRCAD E 1FS (X,Y) 9-1 THENBz-2: FÜRA--2T025 TEPA : GDSUB1370 
1350 IFS(X, Y) s- 2THENFÜRAz-2T028 TEPA: FDRBs-2T028 TEP4: GOSUB 1370: MEXTB 
1360 МЕХТА: IFR(O) (2-99 THENPR INT" TO" R CE) SR C4) z SR (C0) 5-99: GDTO 1240 
1365 80701420 

1370 U=X+AV=Y+Bs IFÜCOORU-2ORVCOORUS7THEN1400 

1380 IFS(U,U)-0ANDSUXHA/2, 48/2) 30 THENGOSUBO10 

1400 RETURN 

1420 PRINT:PRINT:PRINT:FÜRY-7TOOSTEP-1 :FÜRX-0T07: ISeX: PRINTTABUID; 
1430 IFS(X, Y) -OTHENPRINT", "; 

1470 IFS(X,Y)=1THENPRINT"D"; 

1490 IFS(X,Y)s-1 THENPRINT"X"; 

1510 IFSUX Y) s -2THENPRINT" X+"; 

1530 1FS(X, Y S2THENPRINT"O*"; 

1850 NEXTX:PRINT" ":PRINT:NEXTY:PRINT 

1552 FORLsOTO7 

1554 РОКН=0Т07 

1556 IFS(L, M) - TORSCL MD =2THENZ=1 

1558 IFS(L, MH) -- 1088 CL, H0 8-2 THENTe t 

1560 NEXTH 

1562 NEXTL 

1564 IF ТОТ THEN 1880 

1566 IF TC THEN 1885 

1520 Т-0: 1-0 


1590 INPUT "FROM'";E,H:XSE:YSH:IFS(OX,Y)C-OTHEN 1590 

1670 INPUT О "ТО";А,В:Х=А:Ү=В 

1880 IFS(X,¥)=O0ANDABS(A-E)<=2ANDABS (A- E) =ABS (B-H) THENT 700 
11);: 


1690 PRINTCHR$(2)CHR$( 50101470 

1700 1-46 

1750 8(8,B)58(E, Hr :8(E,H) 20: IFABS(E-A) 42 2THEN1810 
1800 S(CE+A)/2, (HTB) /2)20 

1802 INPUT "T0"; A1, BT: IF 6150 THEN 1810 

1804 IFS(A1,B1)  ODRABS (AT-A) CO20RABSUBT-B) <> 2 THEN1802 
1806 Е=А:Н=В:А=А1:В=В1:1=1+15:60701750 

1810 IFB=7THENS(A,B)=2 

1830 8010230 

1880 PRINT: PRINT "I ШІМ. ": END 

1885 PRINT: PRINT "YOU WIN": END 


1 
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Chemist 


The fictitious chemical, kryptocyanic 
acid, can only be diluted by the ratio of 
7 parts water to 3 parts acid. Any other 
ratio causes an unstable compound 
which soon explodes. Given an amount 
of acid, you must determine how much 
water to add for dilution. If you'remore 
than 596 off, you lose one of your nine 
lives. The program continues to play 
until you lose all nine lives or until it is 
interrupted. 

It was originally written by Wayne 
Teeter of Ridgecrest, California. 


CHEMIST 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THE FICTITIOUS CHEMICAL KRYPTOCYANIC ACID CAN ONLY BE 3 PRINT ТАВСЗЗ) ;"CHEHTST" 
DILUTED BY THE RATIO GF 7 PARTS WATER TO 3 PARTS ACID. á PRINT TAB(IS);"CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 

IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE 8 PRINT:PRINT:PRINT 
AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST 10 PRINT “THE FICTITIOUS CHECHICAL KRYPTOCYANIC ACID CAN ONLY BE" 
DECIDE HOW KUCH WATER TO ADD FOR DILUTION. IF YOU NISS 20 PRINT "DILUTED BY THE RATIO OF 7 PARTS WATER TO 3 PARTS ACID." 
YOU FACE THE CONSEQUENCES. 30 PRINT "IF ANY OTHER RATIO IS ATTEMPTED, THE ACID BECOMES UNSTABLE" 
32 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 77 AD PRINT “AND SOON EXPLODES. GIVEN THE AMOUNT OF ACID, YOU MUST" 

! 40 PRINT "YOU FACE THE CONSEQUENCES." 
11 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 27 190 ASIN RNDUTIS30) 
Н z 

КРИ? ан DESALINATED INTO A BLOB 120 PRINT A;"LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER"; 
HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE. 130 INPUT R К) 

26 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 28 150 IF 30/20 THEN 200 

I 
Or GUIVERING HAVE JUST DEEN DESALINATED INTO A BLOB 160 PRINT “GOOD JOB! YOU HAY BREATHE NOU, BUT DON’T INHALE THE FUNES!" 
HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. 1% DM 
? 

SIZZLE! YOU HAVE. JUST BEER DESALINATED ANTE a NOU. 200 PRINT "SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB" 
OF QUIVERING PROTOPLASH! 210 PRINT "OF QUIVERING PROTOPLASM!" 
HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. 220 МИ THEN 260 

22 LITERS OF KRYPTOCYANIC ACID. HOW NUCH WATER? 43 2 | 
GOOD JOB! YOU HAY BREATHE NOU, BUT DON'T INHALE THE FUMES! 20 ЕКІН O NOUEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE.' 

260 PRINT "YOUR 9 LIVES ARE USED, BUT YOU VILL BE LONG REMEMBERED FOR" 

S LITERS OF KRYPTOCYANIC ACID. HOW KUCH WATER? 9 270 PRINT "YOUR CONTRIBUTIONS TO THE FIELD OF COMIC BOOK CHEMISTRY.“ 

SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 280 END 


OF GUIVERING PROTOPLASH! 
HOWEVER, YOU MAY TRY AGAIN WITH ANOTHER LIFE. 

11 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 28 
SIZZLE! YOU HAVE JUST BEEN DESALINATED INTO A BLOB 
OF QUIVERING PROTOPLASH! 

HOWEVER, YOU HAY TRY AGAIN WITH ANOTHER LIFE. 
48 LITERS OF KRYPTOCYANIC ACID. HOW MUCH WATER? 


BREAK IN 130 
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In the words of the program author, 
John Graham, "CHIEF is designed to 
give people (mostly kids) practice in 
the four operations (addition, mul- 
tiplication, subtraction, and division). 

It does this while giving people some 
fun. And then, if the people are wrong, 
it shows them how they should have 
done it. 

CHIEF was written by John Graham 
of Upper Brookville, New York. 


CHIEF 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


I АН CHIEF NUMBERS FREEK, THE GREAT INDIAN KATH GOD. 
ARE YOU READY TO TAKE THE TEST YOU CALLED HE OUT FOR? YES 

TAKE ñ NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND 
MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SANE. SUBTRACT 1. 

WHAT DO YOY HAVE? 12 
І BET YOUR NUMBER WAS 22 WAS I RIGHT? NO 
UHAT WAS YOUR ORIGINAL NUMBER? 32 
SO YOU THINK YOU'RE SO SMART, ЕН? 
NOU UATCH. 

32 PLUS 3 EQUALS 35 . THIS DIVIDED BY 5 EQUALS 7 ; 
THIS TIMES 8 EQUALS 56 . IF WE DIVIDE BY 5 AND ADD 5, 
WE GET 16.2 , WHICH, MINUS 1 EQUALS 15.2 . 

NOW DO YOU BELIEVE ME? NO 
YOU HAVE MADE ME MAD!!! 
THERE MUST BE A GREAT LIGHTNING BOLT! 


LLLLLLLLLELELLLELLELLLLIT] 


I HOPE YOU BELIEVE ME NOU, FOR YOUR SAKE!! 
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2 PRINT ТАВ(30) "CHIEF" 
4 PRINT ТАВ(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
6 PRINT:PRINT:PRINT 


10 
20 

30 

40 

50 

60 

70 

80 

% 

100 
110 
120 
130 
140 
150 
155 
160 
170 
180 
190 
200 
210 
230 
240 
250 
260 
270 
290 
295 
300 
310 
330 
340 
350 
360 
370 
380 
3% 
400 
410 
420 
430 
440 
450 
470 
480 
519 
520 


PRINT 
PRINT 
INPUT 
IF A$= 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
LET г 
PRINT 
INPUT 
IF D$ 
PRINT 
INPUT 
LET F 
LET 6 
LET H 
LET I 
LET J 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF Z$ 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 


" 1 АН CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 
"ARE YOU READY TO. TAKE THE TEST YOU CALLED ME QUT FOR"; 
as 

"YES" THEN 80 

"SHUTUP PALE FACE UITH UISE TONGUE." 

" TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 
"HULTIPLY BY B. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1." 
" UHAT DO YOU HAVE"; 
B 

= (В8%1-5)%5/8%5-3 

"I BET YOUR NUMBER WAS " C" WAS I RIGHT"; 

D$ 


="YES" THEN 510 


"WHAT YAS YOUR ORIGINAL NUMBER"; 
K 


=K+3 
=F/5 
=6#8 
=H/5+5 
«1-1 


"50 YOU THINK YOU^RE 50 SMART, EH?" 

"NOU WATCH." 

K"PLUS 3 EQUALS"F", THIS DIVIDED BY 5 EQUALS"G";" 
"THIS TEMES 8 EQUALS"H". IF WE DIVIDE BY 5 AND ADD 5," 
"ШЕ GET"I", WHICH, MINUS 1 EQUALS"J"," 

"NOU DO YOU BELIEVE HE"; 

1% 

="YES" THEN 510 

"YOU HAVE HADE МЕ МАШ!!!" 

"THERE HUST BE A GREAT LIGHTNING BOLT!" 

SPRINT 


230 70 22 STEP -1 


TAB(X) "X X" 


NEXT X 


PRINT 
PRINT 
PRINT 
FüR Y 
PRINT 


TAB(21) "X XXX" 
TàB(20) "X X" 
TABCE?) "XXX X" 


220 TD 13 STEP -1 


TAB(UY) "X X" 


NEXT Y 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


ТАВ(12) "XX" 

FTAB(11) "X" 

ТАВ(10) "ж" 

IPRINT"HRHBHRRH HHEHEEHHHHHEHEHEHU SPRINT 

"І НОРЕ YOU BELIEVE ME NOM, FOR YOUR SAKE!!" 


GOTO 520 


END 


This program is an adaptation of a PLAYER t А 
mathematical game originally describ- COORDINATES OF CHOMP (ROW,COLUMN)? 5,6 
ed by Martin Gardner in the January 123458783 
1973 issue of Scientific American. Up 1 Prts kr 
to a 9x9 grid is set up by you with the ; жамы 
upper left square а poison square. This 4 MODO 
grid is the cookie. Players alternately 5 **eti 
chomp away at the cookie from the é M RE. 
lower right. To take a chomp, input a ? fria 

B ee ea 
row and column number of one of the 
squares remaining on the cookie. All of PLAYER 2 
the squares below and to the right of COORDINATES OF CHOMP (ROW, COLUMN)? 3,2 
that square, including that square, 
disappear. 123456789 

Any number of people can play — the ; P : : И М М М 
computer is only the moderator; it is 3 M 
not a player. Two-person strategies are 4 * 
interesting to work out but strategies 5 * 
when three or more people are playing ; ; 
are a real challenge. 8 M 

The computer version of the game 
was writlen by Peter Sessions of COORDINATES OF CHOMP (ROW, COLUMN)? 4,4 

M , D, 
Peopie's Computer Company. NO FAIR. YOU'RE TRYING TO СНОНР ON EMPTY SPACE! 
CHOMP PLAYER 1 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY COORDINATES OF CHOMP (ROU,COLUNN)? 2,2 
123456783 
THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973) ; pertes 
WANT THE RULES (1-YES, 0=N0!)? 1 1 M 
СНОНР IS FOR 1 OR MORE PLAYERS (HUMANS ONLY). М * 
HERE^S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7): ñ M 
123456789 7 

1 Peete eae 8 

Pon нате 2 

4 MOSQ COORDINATES OF CHOMP (ROU,COLUMND? 1,2 

3 ннн 123456789 

1 P 
THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS 1 M 
UIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT А M 
CORNER OF THE COOKIE 18 à POISON SQUARE (P). THE ONE WHO 5 M ' 
CHOHPS THE POISON SQUARE LOSES. TO TAKE А CHOMP, TYPE THE i M 
ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE. 7 M 
ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE 8 M 
(INCLUDING THAT SQUARE, Т00) DISAPPEAR -- CHOMP?! 
NO FAIR CHOHPING SQUARES THAT HAVE ALREADY BEEN CHOHPED, PLAYER 1 


OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE. COORDINATES OF CHOMP (ROW,COLUKN)? 2,1 
, ЕЧ) 


HERE UE 60... 
123456789 
HOW MANY PLAYERS? 2 1 P 
HOW MANY ROWS? G 2 
HOU MANY COLUMNS? 7 H 
5 
123456749 58 
1 Petueus ? 
2 eee * + $ + 8 
3 LEE SE SE SE ZE SE 3 
4 eee tees PLAYER 2 
5 tee зз» COORDINATES OF CHOMP (ROU,COLUMN)? 1,1 
6 eee E ong YOU LOSE, PLAYER 2 
7 акаа 
8 ee k t + op $ AGAIN (1=YES; 0=Н01)? Q 
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10 PRINT ТАВ(33);“СНОНР" 

20 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINT:PRINT:PRINT 

40 DIM (10,10) 


100 
110 
120 
130 
140 
150 
160 
170 
180 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
380 
370 
372 
373 
377 
379 
380 
390 
400 
410 
420 
430 
440 
450 
480 
470 
480 
490 
500 
510 
330 
540 


КЕН +++ THE GAME OF CHOMP xx COPYRIGHT РСС 1973 +++ 
PRINT 

PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 
PRINT "WANT THE RULES (1=YES, O=NO!)"; 

INPUT R 

IF R=0 THEN 340 

Fey 

Ез5 

C=? 

PRINT “CHOMP IS FOR 1 OR HORE PLAYERS (HUMANS ONLY)." 
PRINT 

PRINT "HERE^S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):* 
GOSUB 540 

PRINT 

PRINT "THE BOARD IS A BIG COOKIE ~ R ROWS HIGH AND C COLUMNS" 
PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT" 
PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO" 
PRINT “CHOWPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE" 
PRINT “ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE." 
PRINT "ALL DF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE" 
PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!" 

PRINT "NO FAIR CHÜHPING SQUARES THAT HAVE ALREADY BEEN CHOHPED," 
PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE." 
PRINT 

PRINT "HERE WE GO..." 

КЕН 

Ғ=0 

FOR 1=1 T8 10 

FOR Jst TÜ 10 

ACT, J)20 

NEXT J 

NEXT I 

PRINT 

PRINT "HOW NANY PLAYERS"; 

INPUT P 

1150 

PRINT “HOU MANY ROUS"; 

INPUT R 

IF R <= 9 THEN 470 

PRINT "TOU NANY ROWS (9 IS MAXIMUM). NOW, "; 

GOTO 420 

PRINT “HOW Ману COLUMNS’; 

INPUT C 

IF C <= 9 THEN 530 

PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, "$ 

GOTO 470 

PRINT 

FOR Ist TOR 


1973)" 
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330 FOR ісі TO C 

540 АС, Ј)=1 

570 NEXT J 

$80 NEXT I 

590 A(1,1)=-1 

600 REM PRINT THE BOARD 


810 PRINT 

520 PRINT TAB(2);"1 2 3 4 5 67 B 9" 
430 FOR 1=1 TO R 

640 PRINT I;TAB(2); 

650 FOR J=1 TOC 

480 IF ACI,J)=-1 THEN 700 

670 IF A(I,J)=0 THEN 720 

680 PRINT "* *"; 

890 GOTO 710 

200 PRINT "P "; 

710 NEXT J 

720 PRINT 

730 NEXT I 

740 PRINT 

250 IF F-0 THEN 770 

260 RETURN 

770 КЕН GET CHOMPS FOR EACH PLAYER IN TURN 
780 LET 11=11+1 

290 LET Р1=11-1НТ(Т1/Р)®Р 

800 IF РІ <> 0 THEN 820 

810 Р1=Р 

820 PRINT "PLAYER "ІРІ 

830 PRINT “COORDINATES OF СНОНР (ROU,COLUMND"; 
840 INPUT R1,C1 

850 IF КІСІ THEN 920 

860 IF RDR THEN 920 

870 IF С1<1 THEN 920 

880 IF CI>C THEN 920 

890 IF A(RI,C1)-0 THEN 920 

900 IF ACRI,CI)=-1 THEN 1010 

910 GOTO 940 

920 PRINT "NO FAIR. YOURE TRYING TO СНОНР ON EMPTY SPACE!" 
930 GOTO 820 

940 FOR I=R1 TO R 

950 FOR JeCl TO C 

960 ALI, J)50 

970 NEXT J 

980 NEXT I 

990 GOTO 610 

1000 КЕН END OF GAME DETECTED IN LINE 900 
1010 PRINT “YOU LOSE, PLAYER “әрі 
1020 PRINT 

1030 PRINT "AGAIN (1=YES; 0=м01)"; 
1040 INPUT К 

1050 IF Кер THEN 340 

1060 END 


Civil War 


This simulation is based on 14 battles 
in the Civil War. Facts and figures used 
are based on the actual occurrence. If 
you follow the same strategy used in 
the actual battle, the results will be the 
same. Generally, this is a good strategy 
since the generals in the Civil War 
were fairly good military strategists. 
However, you can frequently outper- 
form the Civil War generals, particular- 
ly in cases where they did not have 
good enemy intelligence and conse- 
quently followed a poor course of 
action. Naturally, it helps to know your 
Civil War history, although the com- 
puter gives you the rudiments. 

After each of the 14 battles, your 
casualties are compared to the actual 
casualties of the battle, and you are 
told whether you win or lose the battle. 

You may play Civil War alone in 
which case the program simulates the 
Union general. Or two players may play 
in which case the computer becomes 
the moderator. 

Civil War was written in 1968 by three 
Students at Lexington High School, 
Massachusetts: L. Cram, L. Goodie, 
and D. Hibbard. It was modified into a 
2-player game by G. Paul and R. Hess 
of TIES, St. Paul, Minnesota. 


CIVIL WAR 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


DO YOU VANT INSTRUCTIONS? YES 


THIS IS A CIVIL WAR SIMULATION. 

TO PLAY, TYPE A RESPONSE WHEN THE CONPUTER ASKS. 

REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR 
RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE 
BASED ON THE ACTUAL OCCURRENCE. NOST BATTLES TEND TD RESULT 
AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ОН YOU!! 


THE OBJECT OF THE GAHE IS TO UIN AS MANY BATTLES AS POSSIBLE. 


YOUR CHOICES FOR DEFENSIVE STRATEGY ARE: 
(1) ARTILLERY ATTACK 
(2) FORTIFICATION AGAINST FRONTAL ATTACK 
(3) FORTIFICATION AGAINST FLANKING NANEUVERS 
(4) FALLING BACK 

YOUR CHOICES FOR OFFENSIVE STRATEGY ARE: 

(1) ARTILLERY ATTACK 
(2) FRONTAL ATTACK 
(3) FLANKING MANEUVERS 
(4) ENCIRCLEMENT 

YOU HAY SURRENDER BY TYPING А “5° FOR YOUR STRATEGY. 


ARE THERE TUO GENERALS PRESENT (ANSWER YES OR М0)? YES 
SELECT A BATTLE BY TYPING A NUNBER FROM 1 TO 14 ON 
REQUEST, ТҮРЕ ANY OTHER NUMBER TO END THE SIMULATION. 
BUT 70” BRINGS BACK EXACT PREVIOUS BATTLE SITUATION 
ALLOVING YOU TO REPLAY IT 


NOTE: A NEGATIVE FOODS ENTRY CAUSES THE PROBRAM TO 
USE THE ENTRIES FROM THE PREVIOUS BATTLE 


AFTER REQUESTING A BATTLE, DO YOU WISH BATTLE DESCRIPTIONS 
(ANSUER YES OR NO)? YES 


WHICH BATTLE DO YOU WISH TO SIMULATE? 3 


THIS IS THE BATTLE OF SEVEN DAYS 

JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE 
OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN 
AND THE UNION FORCES AUAY FRON RICHMOND. 


CONFEDERACY UNION 


МЕН 95000 115000 
MONEY $ 427500 $ 517500 
INFLATION 25 1 10 X 


CONFEDERATE GENERAL-~~HOW MUCH DO YOU UISH TO SPEND FOR 
~ F00D...... ? 100000 
~ SALARIES.. ? 140000 
~ AMHUNITION ? 180000 


UNION GENERAL---HOU MUCH DO YOU UISH TO SPEND FOR 
~ FDOD...... ? 120000 

~ SALARIES.. ? 160000 

~ ANHUNITION ? 237500 


CONFEDERATE MORALE IS FAIR 
UNION HORALE IS FAIR 
CONFEDERATE GENERAL---YOU ARE ON THE OFFENSIVE 


CONFEDERATE STRATEGY ? 4 
UNION STRATEGY 72 


CONFEDERACY UNION 
CASUALTIES 18805 13738 
DESERTIONS 13 10 


COMPARED TO THE ACTUAL CASUALTIES AT SEVEN DAYS 
CONFEDERATE: 91 Z OF THE ORIGINAL 
UNION: 87 1 OF THE ORIGINAL 


THE UNION WINS SEVEN DAYS 


WHICH BATTLE DO YOU WISH TO SIMULATE? ó 


THIS IS THE BATTLE OF FREDERICKSBURG 
DEC 13, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY 
REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE. 


CONFEDERACY UNION 


NEN 76417 12219! 
MONEY $ 335800 $ 552000 
INFLATION 27 X 82 


CONFEDERATE GENERAL---HOW MUCH DO YOU WISH TO SPEND FOR 
~ FU0D...... ? 100000 
7 SALARIES.. ? 100000 
- AMMUNITION ? 135800 


UNION GENERAL---HOU MUCH DO YOU WISH TO SPEND FOR 
~ F00D...... 7 130000 
~ SALARIES.. ? 150000 
- AMNUNITION ? 272000 


CONFEDERATE MORALE IS FAIR 
UNIUN HORALE IS HIGH 
CONFEDERATE GENERAL---YOU ARE ON THE DEFENSIVE 


CONFEDERATE STRATEGY ? 2 
UNION STRATEGY ? 4 


CONFEDERACY UNION 
CASUALTIES 4870 10360 
DESERTIONS 11 6 


COMPARED TO THE ACTUAL CASUALTIES AT FREDERICKSBURG 
CONFEDERATE: 91 Х OF THE ORIGINAL 
UNION: 82 X OF THE ORIGINAL 


THE CONFEDERACY WINS FREDERICKSBURG 


WHICH BATTLE DO YOU WISH TO SIMULATE? 15 


THE CONFEDERACY HAS WON 1 BATTLES AND LOST 1 
THE UNION HAS UON THE UAR 


FOR THE 2 BATTLES FOUGHT (EXCLUDING RERUNS) 
CONFEDERACY UNION 


HISTORICAL LOSSES 25971 28502 
SIMULATED LOSSES 23700 24118 
2 OF ORIGINAL 91 85 


2 PRINT TAB(26) "CIVIL WAR” 

4 PRINT ТАВ(15) "CREATIVE CONPUTING NORRISTOWN, NEU JERSEY" 
& PRINT : PRINT : PRINT 

20 REN ORIGINAL GAME DESIGN: CRAN, GOODIE, HIBBARD LEXINGTON H.S. 
30 REM MODIFICATIONS: 6. PAUL, R. HESS (TIES), 1973 
50 DIM 5(4),69(14),41(149,82(143,С1(149,22(14),4014) 
60 КЕН UNION INFO ON LIKELY CONFEDERATE STRATEGY 

70 50103425 z 8(2)228 z S(3)=25 : 8(4)-28 

B2 REM READ HISTORICAL DATA. 

84 FOR 841 TO 14 

86 READ C$(D),M1(D),N2(D),CH(D),C2(D) OD) 

88 NEXT D 

69 LET DsRND(-1) 

90 PRINT 

100 PRINT "DO YOU UANT INSTRUCTIONS"; 

100 INPUT X$ 

120 IF Хӛз"ҮЕ5" THEN 160 

130 IF X$="NO" THEN 370 

140 PRINT "YES OR NO -- "; 

150 GOTO 110 

160 PRINT " 


170 PRINT "THIS IS A CIVIL WAR SIHULATION." 

180 PRINT "TO PLAY, TYPE A RESPONSE WHEN THE COMPUTER ASKS." 

190 PRINT "REMEMBER THAT ALL FACTORS ARE INTERRELATED AND THAT YOUR” 
200 PRINT "RESPONSES COULD CHANGE HISTORY. FACTS AND FIGURES USED ARE" 
210 PRINT "BASED ON THE ACTUAL OCCURRENCE. MOST BATTLES TEND TO RESULT" 
220 PRINT "AS THEY DID IN THE CIVIL WAR, BUT IT ALL DEPENDS ON YOU!!" 
230 PRINT 

240 PRINT "THE OBJECT OF THE БАНЕ IS TO ШІН AS МАНУ BATTLES AS "; 

245 PRINT "POSSIBLE." 

250 PRINT 

240 PRINT "YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" 

270 PRINT * (1) ARTILLERY ATTACK" 

280 PRINT " (2) FORTIFICATION AGAINST FRONTAL ATTACH" 

290 PRINT * (3) FORTIFICATION AGAINST FLANKING MANEUVERS” 

300 PRINT " (4) FALLING BACK" 

310 PRINT * YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" 

320 PRINT " (1) ARTILLERY ATTACK" 

330 PRINT " (2) FRONTAL ATTACK" 

340 PRINT " (3) FLANKING MANEUVERS" 

350 PRINT " (4) ENCIRCLEHENT" 

3&0 PRINT "YOU HAY SURRENDER BY TYPING A 757 FOR YOUR STRATEGY," 

370 PRINT " 


ARE THERE TWO GENERALS PRESENT "; 


47 


380 
390 
400 
410 
420 


425 
430 
440 
450 
460 
470 
480 
490 
$00 
910 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 


630 
640 
650 
655 
660 
665 
670 
680 
490 
700 
710 
720 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1195 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


PRINT "(ANSUER YES OR ND)"; 
INPUT B$ 

IF B$-"YES" THEN 430 

IF BS <> "НО" THEN 380 
PRINT " 


YOU ARE THE CONFEDERACY. 6000 LUCK!" 


PRINT 

LET D=1 

IF B$ <> "YES" THEN 460 

LET Da2 

PRINT "SELECT A BATTLE BY TYPING A NUMBER FROM ! TO 14 ON" 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF X$z"YES" THEN 800 


“REQUEST. ТҮРЕ ANY OTHER NUMBER TO END THE SIMULATION," 
"BUT 70” BRINGS BACK EXACT PREVIOUS BATTLE SITUATION" 
"ALLOWING YOU TO REPLAY IT" 


"НОТЕ: A NEGATIVE FOODS ENTRY CAUSES THE PROGRAM TO " 
"USE THE ENTRIES FROM THE PREVIOUS BATTLE" 


"AFTER REQUESTING A BATTLE, DO YOU UISH "; 
"BATTLE DESCRIPTIONS "; 

"(ANSUER YES OR ND)"; 

xs 


IF X$ <> "NO" THEN 560 
L=0sU=0:R1=0:Q1=0:M3=0:8M4=0:P1=0:P2=0:T1=0:T2=0 
F(2)=0:H(2)=0:B(2)=0:R2=0:02=0:Cá=0:F=0:U0=0:Y=0:Y2=0:U=0:U2=0 


PRINT ^ 


" 


PRINT "UHICH BATTLE DO YOU WISH TO SIMULATE”; 
INPUT A 

IF A <> 0 THEN 660 

IF R <> 
IF A <= 
IF A >= 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
КЕН 
LET 
LET 


0 THEN 1140 
0 THEN 2860 
15 THEN 2860 
C$=C$(A) 
KINIA) 
H23H2(A) 
CtzCT(A) 
C2=C2(A) 
NEHA) 
U=0 
INFLATION CALC 
11=10+(L-U)*2 
122104(U-L)42 
REM - HONEY AVAILABLE 
LET D(1)=100*INT((H1*(100-I1)/2000)3(1+(Ri-01)/0R1+1))+,5) 
LET D(2)=100*INT(N24(100-12)/20004.5) 
IF BS <> "YES" THEN 1050 
LET D(2)21009INT((H25(100-12)/20000* (1 £(R2-02) /(R241 94.5) 
REM - MEN AVAILABLE 
LET HS-2INT(HISCEHH TI C349) >) 
LET Hó=INT(H2*(1+(P2-T2)/(M4+1))) 
LET Fl=5*M1/6 
PRINT " 


PRINT "THIS IS THE BATTLE OF ";C$ 

IF X$s"NÜ" THEN 1150 

IF АУ! THEN 1130 

ON A GOTO 3580, 3620,3650,3690,3720,3750 ,3780, 3800, 3830, 3840, 3890 
ON A-11 GOTO 3920,3950,3980 

PRINT C8" INSTANT REPLAY" 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
REM - ONLY IN PRINTOUT IS CONFED INFLATION = 114152 
REM - IF TUO GENERALS, INPUT CONFED. FIRST 

FOR Iz! TO D 

IF BS <> "YES" THEN 1240 

IF 1-2 THEN 1260 

PRINT “CONFEDERATE GENERAL---"; 

PRINT "HOW NUCH DO YOU UISH TO SPEND FOR" 

PRINT " - FOOD......"; 

INPUT F 

IF F >= 0 THEN 1360 

IF RI <> 0 THEN 1330 

PRINT "НО PREVIOUS ENTRIES" 

GOTO 1270 

PRINT "ASSUME YOU WANT TO KEEP SAKE ALLOCATONS" 
PRINT 

GOTO 1510 

LET F(D=F 

PRINT " - SALARIES.."; 

INPUT HCD) 

LET Het 


" ©, "CONFEDERACY",” UNION" 

"HEN"," "NS," "Mó 

"HONEY" "$"5DCL) "8" 5002) 
?INFLATION"," "111413; "2"," ";]2;"1" 


1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1850 
1870 
1880 
1890 
1900 
1910 
1920 
1?30 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
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IF Н(12<0 THEN 1490 

PRINT " ~ AMMUNITION"; 

INPUT B(1) 

LET N=2 

IF B(1)€0 THEN 1490 

PRINT 

IF F(I)D+H(I)+B(I) <= DCT) THEN 1510 
PRINT "THINK AGAIN! YOU HAVE ONLY $*D(I) 
GOTO 1270 

PRINT “NEGATIVE VALUES НОТ ALLOWED." 
ON N GOTO 1370,1410 

IF B$ <> "YES" THEN 1550 

IF 1:2 THEN 1550 

PRINT "UNION GENERAL---"; 

NEXT I 

FOR 2-1 TO D 

IF B$ <> "YES" THEN 1620 

ON 2 GOTO 1580,1600 

PRINT "CONFEDERATE "3 

GOTO 1620 

PRINT " UNION "5 

ВЕН - FIND MORALE 

LET 0-((25F (22^23802)^ 2) /F1^241) 
IF 0<10 THEN 1560 

PRINT "MORALE IS HIGH” 

GOTO 1700 

IF 045 THEN 1690 

PRINT "MORALE IS FAIR" 

GOTO 1700 

PRINT "HORALE IS POOR" 

IF B$ <> "YES" THEN 1760 

LET 0(2)=0 

NEXT Z 

LET 02=0(2) 

LET 8=0(1) 

PRINT "CONFEDERATE GENERAL---"; 
REM - ACTUAL OFF/DEF BATTLE SITUATION 
IF M <> 3 THEN 1800 

PRINT “YOU ARE ON THE OFFENSIVE" 
GOTO 1840 

IF ñ <> 1 THEN 1830 

PRINT "YOU ARE DN THE DEFENSIVE" 
GOTO 1840 

PRINT "BOTH SIDES ARE ON THE OFFENSIUE " 
PRINT 

REM - CHOOSE STRATEGIES 

IF B$ <> "YES" THEN 1910 

FOR 1-1 TO 2 

ON I GOTO 18970,1920 

PRINT "CONFEDERATE STRATEGY "3 
GOTO 1920 

PRINT "YOUR STRATEGY "; 

INPUT Y 

IF ABS(Y-3)43 THEN 1960 

PRINT "STRATEGY" ;Y;"NOT ALLOWED." 
60T0 1910 

IF B$z"YES" THEN 2000 

IF Ye5 THEN 2830 

GOSUB 3110 

8070 2170 

IF 1:2 THEN 2040 

LET ¥isy 

PRINT "UNION STRATEGY "; 

NEXT 1 

LET Y2-Y 

LET YaY1 

IF Y2=5 THEN 2020 

REM : SIMULATED LOSSES-NORTH 

LET С6=(29С2/5)4(1+1/(29(АВ5(ү2-ү)+1))) 
LET CózCó*(1.20€(53H2/60/(BL2)41)) 
LET CózINT(CóS (141/02)? 4,5) 

REM - IF LOSS > MEN PRESENT, RESCALE LOSSES 
LET £2=100/02 

IF INT(CG*E2) H6. THEN 2190 

LET CósINT(134H5/20) 

LET E2=7*C6/13 

LET U2=1 

REM - CALCULATE SIMULATED LOSSES 
PRINT 

PRINT " 


","CONFEDERACY" , "UNION" 
LET C5z(25€1/5) (141/02 (ABS(CY2-Y) 41))) 
LET C5=INT(C5*(1+1/0)*(1.28+F1/(B(1)+1))+.5) 
LET E=100/0 
IF [5+100/0<Н1#(1+(Р1-Т!)/(М3+1)) THEN 2270 
LET CSsINT(ESSH1/20* CEEFCPT-TD ZUR ТӘ) 
LET Ez73C5/13 
LET U=1 
IF D=t THEN 2500 
PRINT "CASUALTIES" ,C5,C6 


2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2375 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2549 
2550 
2560 
2370 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2880 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 


2870 
2880 
2890 
2900 
2910 
2915 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3040 
3070 
3080 
3090 
3100 
3110 
3120 
3130 


PRINT "BESERTIONS",INT(E) , INT(E2) 


PRINT 

IF B$ 4» "YES" THEN 2530 

PRINT "COMPARED TO THE ACTUAL CASUALTIES AT "C$ 

PRINT "CONFEDERATE:"INT(1005(CS/C1)*,5)"Z OF THE ORIGINAL" 
PRINT "UNION: "INTOO08$(06/C2)*,5)"X OF THE ORIGINAL" 
PRINT 

REM - 1 WHO ONE 


IF U <> 1 THEN 2380 

U2=1 THEN 2460 

U-i THEN 2420 

U2=1 THEN 2440 

С5+Е=С6+Е2 THEN 2440 

US*EXCÓ*E2 THEN 2440 

PRINT "THE UNION UINS "C$ 

5070 2600 

PRINT "THE CONFEDERACY WINS "C$ 
GOTO 2660 

PRINT "BATTLE OUTCONE UNRESOLVED" 
LET 80-401 

IF A=0 THEN 2790 

GOTO 2680 

LET C6=INT(174029C1/(05820)) 

LET E2-5*0 

GOTO 2280 

PRINT "YOUR CASUALTIES WERE "INT(1008(C5/C1)*,50"Z OF ” 
PRINT "THE ACTUAL CASUALTIES AT ";C$ 
PRINT 

REH - FIND WHO WON 

IF у=} THEN 2590 

IF CS+E<178C2eC1/(C5#20)+540 THEN 2630 
PRINT "YOU LOSE ";Г% 

IF A=0 THEN 2790 

LET ізін! 

GOTO 2680 

PRINT "YOU WIN ";C$ 

REM - CUMULATIVE BATTLE FACTORS WHICH ALTER HISTORICAL 
КЕН RESOURCES AVAILABLE.IF A REPLAY DON’T UPDATE. 
IF А=0 THEN 2790 

LET U=U+! 

LET Т1511465-Е 

LET T2=T2+C6+E2 

LET Pl=P1+U1 

LET P2=P2+C2 

LET ütsOT eC FCODAGODOSBUDO 

LET 02:02*(F (2) 4HC2)4BU20) 

LET RIzRIS8150100-11)/20 

LET R2:R2:H2*(100-12)/20 

LET H32H34MI 

LET H42H4*H2 

GOSUB 3300 

Uz0:U220 


REH------ FINISH OFF 

PRINT "THE CONFEDERACY HAS SURRENDERED" 
GOTO 2860 

PRINT "THE UNION HAS SURRENDERED." 
PRINT " 


PRINT "THE CONFEDERACY "; 

PRINT "HAS UON "Ы" BATTLES AND LOST "L 

IF Ү=5 THEN 2940 

IF Y2=5 THEN 2920 

IF U <= L THEN 2940 

IF Үз5 THEN 2940 

PRINT "THE CONFEDERACY HAS WON THE WAR” 

GOTO 2950 

PRINT "THE UNION HAS UON THE WAR" 

PRINT 

IF Ri=0 THEN 3100 

PRINT "FOR THE "U*L*UO" BATTLES FOUGHT (EXCLUDING RERUNS)" 
PRINT "o"" "hos 

PRINT "CONFEDERACY"," UNION" 

PRINT "HISTORICAL LOSSES", INT(PI+.5) ,INT(P2+.5) 


PRINT "SIMULATED LOSSES", INT(TI+.5),INT(T2+.5) 
PRINT 
PRINT " X OF ORIGINAL”, INT(100%(TI/P1)4.5) ,INT(100%(T2/P2)+.5) 


IF B$="YES" THEN 3100 

PRINT 

PRINT "UNION INTELLIGENCE SUGGESTS THAT THE SOUTH USED " 
PRINT “STRATEGIES 1, 2, 3, 4 IN THE FOLLOWING PERCENTAGES" 
PRINT 5(1);5(2);5(39;5(4) 


STOP 

REM - UNION STRATEGY 18 COMPUTER CHOSEN 
PRINT "UNION STRATEGY IS "; 

IF à 4» 0 THEN 3180 


3140 
3150 
5155 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3270 
3300 
3310 
3320 
3330 
3340 
3350 
3340 
3370 
3380 
3370 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3540 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3695 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3785 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3865 
3870 
3880 
3870 
3700 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3780 
5970 
4000 
4010 
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PRINT "JULY 1-3, 1863. 


INPUT Y2 

IF Y2 <= 0 THEN 3160 

IF ¥2<5 THEN 3290 

PRINT "ENTER ! , 2 ,3 , OR 4 (USUALLY PREVIOUS UNION STRATEGY)" 
GOTO 3140 

LET 80-0 

LET R=100#RND(O) 

FOR I=1 TO 4 

LET 50=50+5(1) 

REM - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTS 

REM — THEN R-100 IS EXTRA UEIGHT GIVEN TO THAT STATEGY. 

IF К<50 THEN 3270 

NEXT 1 

REN - IF ACTUAL STRAT. IN, THEN HERE IS Y2= HIST. STRAT. 

LET Y2=I 

PRINT Y2 

RETURN 

REM LEARN PRESENT STRATEGY, START FORGETTING OLD ONES 

REN - PRESENT STRATEGY OF SOUTH GAINS 3*5, OTHERS LOSE S 

REM PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 57. 

LET S=3 

LET 50-0 

FOR Ist TO 4 

IF $1) <= 5 THEN 3390 

LET S(I)=S(I)-S 

LET 5058048 

NEXT I 

LET S(Y)58(1) «80 

RETURN 

REM ~ HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING 
ВЕН DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ 

DATA "BULL RUN",18000,18500,1967,2708,1 

DATA "SHILDH",40000.,448?4.,1059?9,13047,3 

DATA "SEVEN DAYS",95000.,115000.,20614,15849,3 

DATA "SECOND BULL RUN", 54000. ,63000.,10000,14000,2 

DATA "АНТТЕТАН" , 40000. ,50000.,10000,12000,3 

DATA "FREDERICKSBURG" ,75000., 120000, ,5377, 12653, 1 

DATA "MURFREESBORO" , 38000. ,45000.,11000,12000,1 

DATA "CHANCELLORSVILLE", 32000, 90000. ,13000,17197,2 

DATA "VICKSBURG" ,50000.,70000.,12000,19000,1 

DATA "GETTYSBURG", 72500. ,85000.,20000,23000,3 

DATA "CHICKAMAUGA", 65000. ,60000.,18000,16000,2 

DATA “CHATTANOOGA” , 37000. ,60000.,346700.,5800,2 

DATA "SPOTSYLVANIA" ,62000.,110000.,17723,18000,2 

DATA “ATLANTA”, 65000. ,100000.,8500,3700,1 

PRINT "JULY 21, 1861. GEN. BEAUREGARD, COMMANDING THE SOUTH, HET" 
PRINT "UNION FORCES WITH GEN. MCDOUELL IN A PREMATURE BATTLE AT" 
PRINT "BULL RUN. БЕН. JACKSON HELPED PUSH BACK THE UNION ATTACK." 
GOTO 1150 

PRINT "APRIL 6-7, 1862. THE CONFEDERATE SURPRISE ATTACK AT" 
PRINT "SHILOH FAILED DUE TO POOR ORGANIZATION.” 

GOTO 1150 

PRINT "JUNE 25-JULY 1, 1862. GENERAL LEE (CSA) UPHELD THE" 

PRINT "OFFENSIVE THROUGHOUT THE BATTLE AND FORCED GEN. MCCLELLAN" 
PRINT "AND THE UNION FORCES AWAY FROM RICHMOND." 

GOTO 1150 

PRINT "AUG 27-30, 1862. 
PRINT " LEE" 

PRINT "AND JACKSON DROVE THE UNION FORCES BACK INTO WASHINGTON.” 
GOTO 1150 

PRINT "SEPT 17, 1842. THE SOUTH FAILED TO INCORPORATE MARYLAND" 
PRINT “INTO THE CONFEDERACY." 

GOTO 1150 

PRINT "DEC 13, 1862. THE CONFEDERACY UNDER LEE SUCCESSFULLY" 
PRINT "REPULSED AN ATTACK BY THE UNION UNDER GEN. BURNSIDE." 
GOTO 1150 

PRINT "DEC 31, 1862. 
PRINT "BATTLE." 
5070 1150 

PRINT "HAY 1-6, 1863. THE SOUTH HAD A COSTLY VICTORY AND LOST" 
PRINT "ONE OF THEIR OUTSTANDING GENERALS, 'STONEUALL^ JACKSON." 
GOTO 1150 

PRINT "JULY 4, 1863. VICKSBURG WAS A COSTLY DEFEAT FOR THE SOUTH" 
PRINT "BECAUSE IT GAVE THE UNION ACCESS TO THE MISSISSIPPI." 

GOTO 1150 


THE COMBINED CONFEDERATE FORCES UNDER"; 


THE SOUTH UNDER GEN. BRAGG WON A CLOSE "; 


A SOUTHERN HISTAKE BY GEN. LEE АТ"; 

PRINT "GETTYSBURG" 

PRINT "COST THEM ONE OF THE MOST CRUCIAL BATTLES OF THE UAR." 

GOTO 1150 

PRINT "SEPT. 15, 1863. CONFUSION IN A FOREST NEAR CHICKANAUGA LED" 
PRINT "TO A COSTLY SOUTHERN VICTORY." 

GOTO 1150 

PRINT "NOV. 25, 1863. AFTER THE SOUTH HAD SIEGED GEN. ROSENCRANS/" 
PRINT "ARMY FOR THREE NONTHS, GEN. GRANT BROKE THE SIEGE." 

GOTO 1150 

PRINT "HAY 5, 1864. GRANT’S PLAN TO KEEP LEE ISOLATED BEGAN Т0" 
PRINT "FAIL HERE, AND CONTINUED AT COLD HARBOR AND PETERSBURG." 
GOTO 1150 

PRINT "AUGUST, 1864. SHERMAN AND THREE VETERAN ARMIES CONVERGED” 
PRINT "ON ATLANTA AND DEALT THE DEATH BLOW TO THE CONFEDERACY." 
0070 1150 

END 


Inthis game, you are fighting a small- 
scale war with the computer. You have 
72,000 troops which you first must 
distribute among your Army, Navy, and 
Air Force. You may distribute them in 
any way you choose as long as you 
don't usé more than 72,000. 

You then attack your opponent (the 
computer) and input which service and 
the number of men you wish to use. 
The computer then tells you the 
outcome of the battle, gives you the 
current statistics and allows you to 
determine your next move. 

After the second battle, it is decided 
from the total statistics whether you 
win or lose or if a treaty is signed. 

This program was created by Bob 
Dores of Milton, Massachusetts. 
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COMBAT 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


І АН AT WAR WITH YOU. 
WE HAVE 72000 SOLDIERS APIECE, 
DISTRIBUTE YOUR FORCES. 


HE you 
ARMY 30000 * 25000 
NAVY 20000 ? 25000 
А.Р. 22000 ? 22000 


YOU ATTACK FIRST. TYPE 1 FOR ARMY 2 FOR NAVY 

AND 3 FOR AIR FORCE. 

73 

HOU NANY MEN 

7 22000 

YOU WIPED OUT ONE OF MY ARMY PATROLS, BUT I DESTROYED 
2 NAVY BASES AND BOMBED 3 ARMY BASES. 


You ME 
ARHY 6250 20000 
NAVY 8333 20000 
A.F. 22000 22000 


WHAT IS YOUR NEXT MDVE? 

ARMY=1 NAVY=2 AIR FORCE=3 

73 

HOW MANY MEN 

7 20000 

MY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT 
YOUR COUNTRY IN SHAMBLES. 


FROM THE RESULTS OF BOTH OF YOUR ATTACKS, 
YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU 
RIGHT FOR PLAYING THIS STUPID GAME!!! 


P 
P 
P 
P 
P 
P 
P 
I 
P 


© CO ^ OF СЛ d» C RO — 


RINT T4B(33) ; "COMBAT" 

RINT TAB(I5); "CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 
RINT: PRINT: PRINT 

RINT "I AM AT UAR WITH YOU.": PRINT "UE HAVE 72000 SOLDIERS APIECE." 
RINT “DISTRIBUTE YOUR FORCES." 
RINT ,"ME", "YOU" 
RINT "ARHY",30000, 
NPUT A 
RINT "NAVY" 20000, 

INPUT B 
PRINT "A.F.",22000, 

INPUT C 

IF A*B4C222000 THEN 5 
D-30000 
£=20000 
F=22000 
PRINT "YOU ATTACK FIRST. TYPE 1 FOR ARHY 
PRINT "AND 3 FOR AIR FORCE." 
INPUT Y 
PRINT “HOU MANY НЕН" 

INPUT X 

IF X«0 THEN 20 
ON Y GOTO 100,200,300 

IF ХУА THEN 20 

IF X<A/3 THEN 120 

IF X<2e0/3 THEN 150 

GOTO 270 

PRINT "YOU LOST";X;"MEN FROM YOUR ARHY." 
AZINT(A-X} 

5070 500 

PRINT “YOU LOST":INT(X/3); "MEN BUT I LOST’ SINT(2#0/3) 
ASINT(A-X/3) 

0=0 

GOTO 500 

IF X>B THEN 20 

IF X<E/3 THEN 230 

IF X<2#E/3 THEN 250 

GOTO 270 

PRINT "YOUR ATTACK WAS STOPPED!" 

BzINT(B-X) 

GOTO 500 

PRINT "YOU DESTROYED";INT(2*E/3) ;"UF MY ARMY” 
E=INT(E/3) 

GOTO 500 

PRINT “YOU SUNK 1 OF MY PATROL BOATS BUT I WIPED QUT 2" 
PRINT "OF YOUR A.F. BASES AND 3 ARHY BASES." 
ASINT(A/3) 

CSINT(C/3) 

EsINT(2#E/3) 

8070 500 

IF ХУС THEN 20 

IF X«C/3 THEN 350 

IF X«2*C/3 THEN 370 

GOTO 380 

PRINT “YOUR ATTACK WAS WIPED QUT." 

C=INT(U-X) 

8070 500 

PRINT "WE HAD A DOGFIGHT- YOU WON- AND FINISHED YOUR MISSION." 
D=INT(2#D/3) 

E=INT(E/3) 

F=INT(F/3) 

5070 500 


2 FOR NAVY" 
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380 
381 
385 
387 
390 
500 
301 
510 
520 
530 
1000 
1010 
1020 
1030 
1040 
1045 
1050 
1800 
1510 
1415 
1616 
1617 
1830 
1835 
1640 
1700 
1710 
1720 
1750 
1751 
1755 
1760 
1765 
1770 
127 
1725 
1780 
1790 
1800 
1810 
1820 
1830 
1831 
1835 
1837 
1840 
1845 
1850 
1851 
1860 
2000 
2001 
2002 
2005 
2006 
2007 
2008 
2010 
2012 
2015 
2016 
2020 


PRINT "YOU WIPED OUT ONE OF HY ARMY PATROLS, BUT I DESTROYED" 
PRINT "2 NAVY BASES AND BOMBED 3 ARHY BASES.” 

AZINT(A/4) 

BzINTCB/3) 

UzINT(2*D/3) 

PRINT 

PRINT,"YOU","HE" 

PRINT "ARHY",A,D 

PRINT "NAUY",B,E 

PRINT "A.F." C.F 


PRINT “UHAT IS YOUR NEXT MOVE?" 

PRINT "АКНҮ=1 NAVY=2 AIR FORCE=3" 

INPUT 6 

PRINT "HOU HANY MEN" 

INPUT T 

IF Т<0 THEN 1030 

DN G GOTO 1400,1700,1800 

IF DA THEN 1030 

IF T<D/2 THE 1630 

PRINT "YOU DESTROYED МҮ ARMY!" 

0=0 

GOTO 2000 

PRINT "I WIPED QUT YOUR ATTACK!" 

АғА-Т 

8070 2000 

IF ТУВ THEN 1030 

IF ТХЕ/2 THEN 1750 

0010 1770 

PRINT "I SUNK 2 OF YOUR BATTLESHIPS, AND MY AIR FORCE” 
PRINT "UIPED QUT YOUR UNGAURDED CAPITOL." 

&z8/4 

B=B/2 

GOTO 2000 

PRINT “YOUR NAVY SHOT DOWN THREE OF HY XIII PLANES," 
PRINT “AND SUNK 3 BATTLESHIPS." 

Fz2*F/3 

E=(E/2) 

50702000 

IF Т>С THEN 1030 

IF DF/2 THEN 1830 

8070 1850 

PRINT "HY NAVY AND AIR FORCE IN A COMBINED ATTACK LEFT" 
PRINT "YOUR COUNTRY IN SHAMBLES." 

A=A/3 

B=B/3 

C=C/3 

GOTO 2000 

PRINT "ONE OF YOUR PLANES CRASHED INTO MY HOUSE. 
PRINT "HY COUNTRY FELL APART." 

GOTO 2010 

PRINT 

PRINT “FROM THE RESULTS OF BOTH OF YOUR ATTACKS," 
IF AtB+C>3/2e(D+E+F) THEN 2010 

IF AtB+C<2/3e(D+E+F) THEN 2015 

PRINT "THE TREATY OF PARIS CONCLUDED THAT WE TAKE OUR" 
PRINT "RESPECTIVE COUNTRIES AND LIVE IN PEACE." 

GOTO 2020 

PRINT "YOU WON, OH! SHUCKS!I!4" 

GOTO 2020 

PRINT "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU" 
PRINT "RIGHT FOR PLAYING THIS STUPID GAME!!!" 

END 


1 AM DEAD." 


Craps 


This game simulates the game of 
craps played according to standard 
Nevada craps table rules. That is: 

1. A 7 or 11 on the first roll wins 

2. A 2, 3, or 12 on the first roll loses 

3. Any other number rolled becomes 
your "point." You continue to roll; if 
you get your point, you win. If you 
roll a 7, you lose and the dice change 
hands when this happens. 

This version of craps was modified 
by Steve North of Creative Computing. 
It is based on an original which 
appeared one day on a computer at 
DEC. 


CRAPS 
CREATIVE COMPUTING MORRISTOWN, NEM JERSEY 


2,3,12 ARE LOSERS 4,5,6,8,9,10 POINTS 
PICK A NUMBER AND INPUT TO ROLL DICE? 1 
INPUT THE AMOUNT OF YOUR WAGER.? 500 

I WILL NOU THROW THE DICE 

7 WATURAL....A UINNER!T!! 

7 PAYS EVEN MONEY,YOU UIN 500 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE NOU AHEAD $ 500 

INPUT THE AMOUNT DF YOUR UAGER.? 230 

I VILL NOU THROW THE DICE 

6 POINT I WILL ROLL AGAIN 

5 ND POINT I WILL ROLL AGAIN 

5 НО POINT I WILL ROLL AGAIN 

4 NO POINT I VILL ROLL AGAIN 

7 CRAPS YOU LOSE 
YOU LOSE $ 230 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE NOW AHEAD $ 270 
INPUT THE AMDUNT OF YOUR UAGER.? 400 

I WILL NOW THROU THE DICE 

9 POINT I WILL ROLL AGAIN 

2 NO POINT I WILL ROLL AGAIN 

10 NO POINT I WILL ROLL AGAIN 

11 NO POINT I WILL ROLL AGAIN 

8 ND POINT I WILL ROLL AGAIN 

é NO POLAT I WILL ROLL AGAIN 

10 NO POINT I WILL ROLL AGAIN 

? CRAPS YOU LOSE 
YOU LOSE $ 400 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 27 5 
YOU ARE NOU UNDER $ 130 

INPUT THE AKOUNT OF YOUR UAGER.? 500 

I VILL NOU THROU THE DICE 

4 POINT I UILL ROLL AGAIN 

2 NO POINT I WILL ROLL AGAIN 

3 NO POINT I WILL ROLL AGAIN 

à NO POINT I WILL ROLL AGAIN 

5 NO POINT I WILL ROLL AGAIN 

? CRAPS YOU LOSE 
YOU LOSE $ 500 

IF YOU UANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 5 
YOU ARE NOW UNDER $ 430 

INPUT THE AMOUNT OF YOUR WAGER.? 430 

I WILL NOU THROW THE DICE 

3 CRAPS...YOU LOSE 
YOU LOSE 630 DOLLARS 

IF YOU WANT TO PLAY AGAIN PRINT 5 IF NOT PRINT 2? 2 
YOU ARE NOW UNDER $ 1260 
TOO BAD, YOU ARE IN THE HOLE. COME AGAIN. 


5 P 
10 

12 

15 

20 

21 

22 

23 

24 

25 

26 

27 

28 

30 

40 

41 

42 

50 

53 

60 

62 

45 

70 

80 

90 

125 
130 
140 
150 
160 
170 
180 
185 
190 
195 
196 
197 
198 
200 
205 
206 
210 
211 
220 
230 
231 
232 
240 
250 
255 
260 
270 
280 
290 
291 
292 
293 
300 
310 
att 
312 
313 
320 
330 
331 
332 
333 
334 
335 
336 
337 
338 
340 
341 
342 
343 
350 
351 
353 
354 
355 
360 


RINT TAB(33) ;" CRAPS" 
PRINT TAB(15);"CREATIUE COMPUTING NORRISTOWN, NEU JERSEY" 
PRINTsPRINT PRINT 
LET R=0 
PRINT "2,3,12 ARE LOSERS 4,5,6, 89,10 POINTS" 
LET T=1 
PRINT “PICK A NUMBER AND INPUT TO ROLL DICE"; 
INPUT Z 
LET X=(RND(0)) 
LET T =T+1 
IF T<=Z GOTO 24 
PRINT"INPUT THE AMOUNT OF YOUR UAGER."; 
INPUT F 
PRINT “ I WILL NOU THROW THE DICE" 
LET E=INT(7Z*RND(1)) 
LET S=INT(7#RND(1)} 
LETX=E+S 
IF X=? GOTO 180 
IF X=11 GOTO 180 
IF X=1 GOTO 40 
IF X=2 GOTO 195 
IF X=0 GOTO 40 
IF X=2 GOTO 200 
IF X=3 GOTO 200 
IF X=12 GOTO 200 
IF X35 8070 220 
IF X =é GOTO 220 
IF Х-8 8070 220 
IF X=? GOTO 220 
IF X =10 GOTO 220 
IF X=4 БОТО 220 
PRINT X "HATURAL....A WINNER!!! 1" 
PRINT X"PAYS EVEN MONEY,YOU UIN"F"DOLLARS" 
8070 210 


PRINT Х“5НАКЕ EYES....YOU LOSE" 
PRINT "YOU LOSE"F "DOLLARS" 

LET Ғ-0-Ғ 

GOTO 210 

PRINT X "CRAPS...YQU LOSE” 

PRINT “YOU LOÜSE"F"DOLLARS" 

LET F=0-F 

LET R= КӘР 

68010 320 

PRINT X "POINT I WILL ROLL AGAIN" 


LET H=INT(?*RND(1)) 

LET Q=INT(7*RND(1)) 

LETD=H+Q 

IF 0-1 GOTO 230 

IF 0-7 8070 290 

IF 0-0 GOTO 230 

IF D=X GOTO 310 

PRINT O "NO POINT I WILL ROLL AGAIN" 
вото 230 


PRINT 0 "CRAPS YOU LOSE" 

PRINT "YOU LOSE $"F 

Fs0-F 

GOTO 210 

8070 320 

PRINT XA UINNER........ .CONGRATSI ІН 

PRINT X "AT 2 TO 1 ODDS PAYS YQU...LET НЕ SEE..."2»F"DOLLARS" 


LET F=2*F 

GOTO 210 

PRINT " IF YOU VANT TD PLAY AGAIN PRINT 5 IF NOT PRINT 2"; 
INPUT H 

IF R«0 GOTO 334 

IF R>0 GOTO 336 

IF R=0 GOTO 338 

PRINT "YOU ARE HOW UNDER $";-R 

GOTO 340 

PRINT "YOU ARE NOW AHEAD $"R 

GOTO 340 

PRINT "YOU ARE NOW EVEN AT 0" 

IF й=5 GOTO 27 

IFR<06010350 

ІЕК>08070353 

IFR=060T0355 

PRINT"TOO BAD, YOU ARE IN THE HOLE. COME AGAIN." 

5070340 

PRINT"CONGRATULATIONS---YOU САНЕ OUT A WINNER. COME AGAIN!" 
8070360 

PRINT"CONGRATULATIONS---YOU CAME QUT EVEN, NOT BAD FOR AN AMATEUR" 
END 
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CUBE is a game played on the facing 
sides of a cube with a side dimension of 
2. A location is designated by three 
numbers — e.g., 1, 2, 1. Theobject isto 
travel from 1, 1, 1 to 3, 3, 3 by moving 
one horizontal or vertical (not 
diagonal) square at a time without 
striking one of 5 randomly placed 
landmines. You are staked to $500; 
prior to each play of the game you may 
make a wager whether you will reach 
your destination. You lose if you hit a 
mine or try to make an illegal move — 
i.e., change more than one digit from 
your previous position. 

Cube was created by Jerimac Ratliff 
of Fort Worth, Texas. 


CUBE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


00 YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,N0--0) 

7T 1 

THIS IS A GAME IN WHICH YOU WILL BE PLAYING AGAINST THE 
RANDOM DECISION OF THE COMPUTER, THE FIELD OF PLAY IS À 

CUBE OF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED 

BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START, 

YOU ARE AUTOHATICALLY AT LOCATION 1,1,1. THE OBJECT OF 

THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL, 

THE COMPUTER WILL PICK, AT КАНОН, 5 LOCATIONS AT WHICH 

IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS 
YOU LOSE. ONE OTHER DETAIL, YOU HAY HOVE ONLY ONE SPACE 

IN ONE DIRECTION EACH HOVE. FOR EXAHPLE: FROM 1,1,2 YOU 

MAY HOVE TO 2,1,2 OR 1,1,3. YOU HAY NOT CHANGE 

TWO OF THE NUMBERS ON THE SANE MOVE. IF YOU MAKE AN ILLEGAL 
MOVE, YOU LOSE AND THE COMPUTER TAKES THE HONEY YOU MAY 

HAVE BET ON THAT ROUND. 


ALL YES OR NO QUESTIONS WILL BE ANSWERED BY ñ 1 FOR YES 
OR A 0 (ZERO) FOR NO. 


WHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUMBER 
OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH 
500 DOLLAR ACCOUNT. 


5000 LUCK 

WANT TO НАКЕ A WAGER? 
? 1 

HOW MUCH? 

7 200 


ITS YOUR MOVE 
71,1,2 
EXT MOVE 


N 
7 
NE 
7 
N 
NEXT HOVE 
T 2,3,3 


bb BANGOR OR з 
YOU LOSE 
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NA 


AE 


YOU NOU HAVE 200 DOLLARS 
DO YOU WANT TO TRY AGAIN? 
71 
WANT TO MAKE А YAGER? 

71 
HOU MUCH? 
7 100 


ITS YOUR MOVE 

7 1,2,1 

NEXT HOVE 

? 2,2,1 

NEXT HOVE 

4 2,2,2 

NEXT MOVE 

? 2,2,2 

NEXT КОЧЕ 

7 2,3,3 

NEXT HOVE 

? 3,3,3 

CONGRATULATIONS 

YOU NOU HAVE 300 DOLLARS 
DO YOU WANT TO TRY AGAIN? 
70 

TOUGH LUCK 


GOODBYE 


10 PRINT TAB(34) "CUBE" 
20 PRINT TAB(15) "CREATIVE CONPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT : PRINT : PRINT 


100 
110 
120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
250 
280 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
$10 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
520 
630 
640 
650 
660 
670 
880 
690 
200 
710 
720 
730 
740 
730 
760 
770 
780 
790 
890 
810 
820 
830 
840 
850 
860 
870 


PRINT"DO YOU WANT TO SEE THE INSTRUCTIONS? (YES--1,N0--0)" 
INPUT B7 

IF B7=0 THEN 370 

PRINT"THIS IS А GAME IN WHICH YOU WILL BE PLAYING AGAINST THE" 
PRINT RANDOM DECISION OF THE COMPUTER. THE FIELD OF PLAY IS А" 
PRINT"CUBE DF SIDE 3. ANY OF THE 27 LOCATIONS CAN BE DESIGNATED" 
PRINT"BY INPUTING THREE NUMBERS SUCH AS 2,3,1. AT THE START," 
PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1. THE OBJECT OF" 
PRINT"THE GAME IS TO GET TO LOCATION 3,3,3. ONE MINOR DETAIL," 
PRINT" THE COMPUTER WILL PICK, AT RANDOM, 5 LOCATIONS AT WHICH" 
PRINT"IT WILL PLANT LAND HINES. IF YOU HIT ONE OF THESE LOCATIONS 
PRINT"YOU LOSE. ONE OTHER DETAIL, YOU MAY HOVE ONLY ONE SPACE " 
PRINT"IN ONE DIRECTION EACH MOVE. FOR EXAMPLE: FROM 1,1,2 YOU" 
PRINT"HAY HOVE TO 2,1,2 OR 1,1,3. YOU MAY NOT CHANGE" 
PRINT"TUO OF THE NUMBERS ON THE SAME MOVE. IF YOU MAKE AN ILLEGAL 
PRINT"HOVE, YOU LOSE AND THE COMPUTER TAKES THE MONEY YOU MAY" 
PRINT"HAVE BET ON THAT ROUND." 

PRINT 

PRINT 

PRINT"ALL YES OR NO QUESTIONS WILL BE ANSUERED BY A 1 FOR YES" 
PRINT"OR А O (ZERO) FOR ND." 

PRINT 

PRINT"UHEN STATING THE AMOUNT OF A WAGER, PRINT ONLY THE NUHBER" 
PRINT"OF DOLLARS (EXAMPLE: 250) YOU ARE AUTOMATICALLY STARTED WITH 
PRINT"500 DOLLAR ACCOUNT." 

PRINT 

PRINT"GOOD LUCK" 

LET 81-500 

LET ASINT(GSGNDOOD) 

IF AC>O THEN 410 

LET А=3 

LETB=INT(S*(RND(X))) 

ІЕВ<20ТНЕК440 

LET Be2 

LETC- INT CEECRNDOO ) 

IFECDOTHEN4 70 

LETC#3 

LETD=INT(3*(RND(X))) 

IFD<>OTHENSOO 

LETD=1 

LETE=INT(3#(RND(X))) 

ІҒЕСО0ТНЕН530 

LETE=3 

LETFZINTCERGNDOO0) 

ІЕҒ<>0ТНЕН550 

LETF=3 

LETBGS INTCTRONDOO)) 

TFGC>OTHENS 90 

LETG=3 

LETH=INT (J#CRND(X))) 

ІЕН<20ТНЕН620 

LETH=3 

LETIZINTOHEONBOO)) 

ІҒІ<>0ТНЕН650 

LETI=2 

LETJE INT CES CUDOO 9) 

IF JX20THENABO 

LETJ=3 

LETKZINTCPERONDOO)) 

ТЕК<20ТНЕН210 

LETK=2 

LETL=INT(3*(RND(X))) 

TFLQ>OTHEN7 40 

LETL=3 

LETH INT CIS (RND OO )) 

TFAS>OTHEN770 

LETH=3 

LETN=INT(3*(RND(X))) 

IFN<>0THEN800 

LET N=1 

LET O=INT (3*(RND(X))) 

IF 0 <>0 THEN 830 

LET 0:2 

PRINT "МАНТ TU НАКЕ A WAGER?" 

INPUT Z 

IF Z=0 THEN 920 

PRINT "HOW MUCH?" 

INPUT Z1 
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876 

880 

870 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1180 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1230 
1260 
1270 
1280 
12?0 
1300 
1310 
1320 
1330 
1340 
1350 
1350 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1522 
1525 
1530 
1540 
1550 
1550 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 


IF А1<21 THEN 1522 
LET й=1 

LET X21 

LET Y=1 

PRINT 

PRINT "ITS YOUR HOVE" 
INPUT P,Q,R 

IFP>W+1 THEN1030 
IFP=U+1 THEN1000 
IF0»X41 THEN1030 

IF G=(X+1) THEN 1010 
IF R >(Y+1) 
8010 1050 


THEN 1030 


IF Q@>= Х+1 THEN 1030 
IF R>=Y+1 THEN 1030 
GOTO 1050 

PRINT "ILLEGAL MOVE", "YOU LOSE" 
GOTO 1440 

LET H=P 

LET X=@ 

LET Y=R 

IF Pz3 THEN 1100 

GOTO 1130 

IF @=3 THEN 1120 

GOTO 1130 

IF R=3 THEN 1530 

IF Pzà THEN 1150 

GOTO 1180 

IF ü-B THEN 1170 

GOTO 1180 

IF К=С THENT400 

IF P=D THEN 1200 

GOTO 1230 

IF ü-E THEN 1220 

GOTO 1230 

IF R=F THEN 1400 

IF Р=6 ТНЕН1250 

GOTO 1280 

IF (=H THEN 1270 

GOTO 1280 

IF R-ITHEN 1400 

IF PzJ THEN 1300 

GOTO 1330 

IF ü-K ТНЕМ1320 

GOTO 1330 

IF R=L THEN 1440 

IF PsH THEN 1350 

GOTO 1380 

IF Q=N THEN 1370 

GOTO 1380 

IF R=0 ТНЕН1400 

PRINT "НЕХТ МОЧЕ" 

GOTO 930 

РКІНТ "за 68 BANGOR ER" 
PRINT "YOU LOSE" 

PRINT 

PRINT 

IF 750 THEN 1580 
PRINT 

LET 12-41-71 

IF 1220 THEN 1500 
PRINT "YOU BUST" 

GOTO 1410 

PRINT " YOU NOU HAVE"; 72; "DOLLARS" 
LET 41-22 

GOTO 1580 

PRINT"TRIED TO FOOL ME; BET AGAIN"; 
GOTO 870 
PRINT"CONGRATULATIONS" 
IF 720 THEN 1580 

LET 72541471 

PRINT "YOU NOW HAVE"; 22;"DOLLARS" 
LET 41-22 

PRINT"DO YOU UANT TO TRY AGAIN?" 
INPUT S 

IF S=1 THEN 380 

PRINT “TOUGH LUCK" 
PRINT 

PRINT " GOODBYE" 

END 


Depth Charge 


In this program you are captain of the 
destroyer USS Computer. An enemy 
submarine has been causing trouble 
and your mission is to destroy it. You 
may select the size of the "cube" of 
water you wish to search in. The 
computer then determines how many 
depth charges you get to destroy the 
submarine. 

Each depth charge is exploded by 
you specifying a trio of numbers; the 
first two are the surface coordinates 
(X, Y), the third is the depth. After each 
depth charge, your sonar observer will 
tell you where the explosion was 
relative to the submarine. 

Dana Noftle wrote this program 
while a student at Acton High School, 
Acton, Massachusetts. 


DEPTH CHARGE 
CREATIVE COMPUTING  MORRISTOUN, NEW JERSEY 


DEPTH CHARGE GAME 

DIMENSION OF SEARCH AREA? 50 

YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER 
AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
HISSION IS TO DESTROY IT. YOU HAVE á SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A 

TRIO OF NUMBERS -- THE FIRST TUO ARE THE 

SURFACE COORDINATES; THE THIRD IS THE DEPTH. 

GOOD LUCK ! 


TRIAL # 1 ? 25,25,25 
SONAR REPORTS SHOT WAS SOUTHEAST AND TOO LOU. 


TRIAL 8 2 ? 12,35,12 
SONAR REPORTS SHOT WAS SOUTHWEST AND TOO LOU. 


TRIAL 8 3 ? 18,43,5 
SONAR REPORTS SHOT WAS NORTHEAST AND TOO HIGH. 


TRIAL 8 4 7 15,39,8 
SONAR REPORTS SHOT WAS EAST AND TOO LOW. 


TRIAL 8 3 ? 14,39,6 


BOGOH ! + YOU FOUND IT IN 5 TRIES! 


ANOTHER GAME (Y OR N)? N 
OK. HOPE YOU ENJOYED YOURSELF. 
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DEPTH CHARGE GAHE 
DIMENSION OF SEARCH AREA? 10 


YOU ARE THE CAPTAIN OF THE DESTROYER USS COHPUTER 
AN ENEHY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR 
MISSION IS TO DESTROY IT, YOU HAVE 4 SHOTS. 
SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A 

TRIO OF NUMBERS -- THE FIRST TUO ARE THE 

SURFACE COORDINATES; THE THIRD IS THE DEPTH. 


GOOD LUCK ! 


TRIAL # 1 ? 5,5,8 
SONAR REPORTS SHOT WAS NORTH AND TOO HIGH. 


TRIAL 8. 2 ? 5,2,7 
SONAR REPORTS SHOT WAS SOUTH AND TOO HIGH. 


TRIAL # 3? 5,3,9 
SONAR REPORTS SHOT WAS SOUTH AND TOO LOU. 


TRIAL # 4 ? 5,4,8 


BOOK! t! YOU FOUND IT IN 4 TRIES! 


2 PRINT TAB(30);°DEPTH CHARGE" 

4 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
6 PRINT: PRINT: PRINT 

10 PRINT "DEPTH CHARGE GAME": PRINT 

20 INPUT "DIMENSION OF SEARCH AREA"; G: PRINT 

30 N:INT(LOGCB)/LOGL2)) +t 

40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER" 
50 PRINT "АН ENEMY SUB HAS BEEN CAUSING YOU TROUBLE. YOUR" 
60 PRINT "MISSION IS TO DESTROY IT, YOU НАУЕ"; М; "SHOTS." 
70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH А" 

80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE" 

90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH." 

100 PRINT : PRINT "GOOD LUCK !": PRINT 

110 ASINT(G#RND(T)) : BEINT(G*RND(T)) : CEINTUSRNDCDO) 

120 FOR D=1 TO N : PRINT : PRINT "TRIAL H";D; : INPUT X,Y,Z 
130 IF ABS(X~AD+ABS(Y"B)+ABS(Z-C)=0 THEN 300 

140 80508 500 : PRINT : NEXT D 

200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED! ABANDON SHIP!" 
210 PRINT "THE SUBHARINE UAS AT";65;","5B5",';C : GOTO 400 
300 PRINT : PRINT "B O D H ! ! YOU FOUND IT IN";D;"TRIES!" 
400 PRINT : PRINT: INPUT "ANOTHER САНЕ (Y OR N)";4$ 

410 IF AS="Y" THEN 100 

420 PRINT "OK. HOPE YOU ENJOYED YOURSELF." : GOW 600 

500 PRINT "SONAR REPORTS SHOT WAS "; 

910 IF Y>B THEN PRINT "NORTH"; 

520 IF Y<B THEN PRINT "SOUTH"; 

530 IF X>A THEN PRINT "EAST"; 

540 IF ХХА THEN PRINT "WEST"; 

550 IF YO SB OR X<>A THEN PRINT " AND"; 

580 IF Z>€ THEN PRINT " TOG LOU." 

570 IF Z<Ü THEN PRINT " 700 HIGH." 

580 IF Z-C THEN PRINT " DEPTH OK." 

390 RETURN 

600 END 


This program fills an 8^ x11 piece of 
paper with diamonds (plotted on a 
hard-copy terminal, of course). The 
program asks for an odd number to be 


input in the range 5 to 31. The 
diamonds printed will be this number 
of characters high and wide. The 
number of diamonds across the page 
will vary from 12 for 5-character wide 
diamonds to 1 for a diamond 31- 
characters wide. You can change the 
content of the pattern if you wish in 
Statement 6. 

The program was written by David 
Ahl of Creative Computing. 


PRINT TAB(S3) ; "DIAMOND" 
PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINT:PRINT:PRINT 
PRINT "FÜR A PRETTY DIAMOND PATTERN," 
INPUT "TYPE IN AN ODD NUMBER BETWEEN 5 AND 21";R:PRINT 
Qs INTCG0/RO Az "CC" 
FOR L=t TO Q 

Xs1:YzR1222 

FÜR N=X TO Y STEP Z 

PRINT TAB((R-N)/2); 

FOR Hat TO Q 

Са 

FOR A=1 TON 

IF COLENCAS) THEN PRINT "i";:G0T0 50 
PRINT HIDSCAS,C, 1); 

C=C+1 

NEXT A 

IF H-ü THEN 60 

PRINT TAB(RSHE(LR-N)/2); 

NEXT H 

PRINT 

NEXT N 

IF X<>1 THEN 95 

XsR-2:121:27-2 

вото 20 

NEXT L 

END 
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DIAMOND 
CREATIVE COMPUTING  HÜRRISTOUN, NEW JERSEY 


FOR A PRETTY DIAMOND PATTERN, 
TYPE IN AN ODD NUMBER BETWEEN 3 AND 217 15 


с с с t 
GCI cc! cc! сс! 
сен С!!! MER! ссн 
Chin сеннен! ЕСІН! сени 
Certi E сенін! сенін синя 
ССТ. Cenni ссн сыи 
СІНЕН СЕННЕН! ECHTE HB E EG E COH EEE TE LG 
ECHaHLEEELEEEEEIECLEEE ELE LE ELE ICCEEE EL E EFL  G CCHEEEL B FL 1 
СНІННЕҢ СЕННЕН COH B E EE ССР 
{нини бинни СН сенін! 
СС сенин ССТТ есені! 
ССР! сенен! гн КИП 
С!!! ЄС!!! Coll! Cit 
сс! CC! cc! ce! 
t с £ С 
t C £ с 
CC! Cc! CC! cei 
Cei cel CCi!! есін 
сетін есігін! сен сп 
есені сенін! есені сенін! 
сс инни! синин сенін! 
ЕсННННН! CECI E I E E GL СЕННЕГЕГІН СЕННЕН 
К ИЛК КК ИНА АКИ ELEELPICCEEEEEE E ELE УЛ LLL E E EL 
{б ининин CCP E E E ELE ССОРЕ ЕЕЕ ССІНІНҢН 


инини 
сенін 


Cenni 
ссни! 


Cenni 
ннн 


СЕНІН 
ЕСІНЕН 


сн! есіні! сенін! сенен! 
есін н! Ceci сен! 
Cc £e CC! EC! 
t с E C 
t с C £ 
cc! СЕ! EC! EC! 
Coli сен! бин! сн 
Сн! сенін есін! егін! 
ЕСІМНІ сны сенін сенін 
СН! сін СННГІН! синин 
СЕННЕН СЕРІНЕН СЕРІНІ GG сикши 
СИН ПЕН ШИН КАК КИИ УИ ИКАТ 
СІН ринин гаты есте 
Сен сенін! СІНЕН сети 
сенин сенін сенін! ннн! 
ССІ ссе есіні! 
MEI єс! ^ сені сен! 
СЕТ Ссі Ci Cc! 
с t t с 
t t C £ 
eci cc! Сс! cc! 
сп pu Colt! MES! 
сін! ни сенін сенін 
ЕСІН сенін инин СЕН 
бинни рн! б иннин ссии 
сет! CCTELEE E E EO CCHEELE EE IEEE ССТ 
CCELELEEELEPEL B ICCHE EELEEE EE ELICCHE PEEL К UL B 0 1 10 0 1 
СЕННЕН! CCH LB EL BET EE СЕННІНЕ CCHITEEU 
сенін! анны! етінін наннын! 
ССН ссе СЕННЕН сны 
CELLE ссии СЕТЕ ссн 
CC111 cc есігі сс 
CC! сс! Сс! cc! 
£ C E t 


Not exactly a game, this program 
simulates rolling a pair of dice a large 
number of times and prints out the 
frequency distribution. You simply 
input the number of rolls. It is in- 
teresting to see how many rolls are 
necessary to approach the theoretical 


distribution: 

2 1/36 2.7777 . . .% 

3 2/36 5.5555 .. .% 

4 3/36 8.3333 . . .% 
etc. 


Daniel Freidus wrote this program 
while in the seventh grade at Harrison 
Jr-Sr High School, Harrison, New York. 


DICE 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


THIS PROGRAM SIMULATES THE ROLLING OF A 

PAIR OF DICE. 

YOU ENTER THE NUHBER OF TIMES YOU WANT THE COMPUTER 70 
"ROLL^ THE DICE. ШАТЕН OUT, VERY LARGE NUMBERS TAKE 

A LONG ТІНЕ. IN PARTICULAR, NUMBERS OVER 5000. 


HOW HANY ROLLS? 10000 

2 PRINT TAB(34) у "DICE" 
4 PRINT ТАВ(15); "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" TOTAL SPOTS NUMBER OF TIMES 
6 PRINT:PRINT:PRINT 2 312 
10 DIN F(12) 3 543 
20 КЕН DANNY FREIDUS 4 820 
30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF А" 3 1148 
40 PRINT "PAIR OF DICE." ó 1395 
50 PRINT "YOU ENTER THE NUMBER OF TIHES YOU WANT THE COMPUTER TO" ? 1680 

8 


60 PRINT ""^ROLL^ THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE" 1330 
70 PRINT "A LONG ТІНЕ. ІН PARTICULAR, NUHBERS OVER 5000." ? 1125 
80 FOR 8-1 ТО 12 10 841 
90 F(B)=0 " 542 
100 NEXT 8 12 264 
110 PRINTIPRINT “HOW HANY ROLLS"; 

120 INPUT X TRY AGAIN? YES 

130 FÜR 841 TO X 

140 ASINTCGSRNDCLIE1) HOW HANY ROLLS? 100 
150 B=INT(ésRND(1)+1) 

160 REAtB TOTAL SPOTS NUMBER OF TIMES 
170 F(R)=F(R)+1 2 [ 
180 NEXT 8 3 n 
185 PRINT 4 9 
190 PRINT "TOTAL SPOTS","NUHBER OF TIMES" 5 9 
200 FOR V=2 Т0 12 n 14 
210 PRINT ¥,F(W) ? 22 
220 NEXT V 8 16 
222 PRINT:PRINT "TRY AGAIN"; ? ? 
223 INPUT Z$ 10 Т 
224 IF Z$="YES" THEN 80 11 1 
240 END 12 0 
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Digits 


The player writes down a set of 30 TEN NUMBERS, PLEASE? 0,1,0,2,0,0,0,2,1,1 
numbers (0, 1, or 2) at random prior to MY GUESS YOUR NO. RESULT NO. RIGHT 
playing the game. The computer 
program, using pattern recognition 2 9 URONG ? 
techniques, attempts to guess the next 2 h иконо Ц 
питрег in your list. е 2 2 RIGHT 10 

The computer asks for 10 numbers at 0 0 RIGHT 11 
a time. It always guesses first and then i М wie " 
examines the next number to see if it 1 2 URONG и 
guessed correctly. By риге luck (or 1 1 RIGHT 12 
chance or probability), the computer 1 1 RIGHT 13 


ought to be right 10 times. Itis uncanny 1 GUESSED MORE THAN 1/3 OF YOUR NUMBERS. 


how much better it generally does than I UIN, 
that! 
This program originated at Dart- DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)? 1 


mouth, original author unknown. TEN NUMBERS, PLEASE? 0,0,0,0,0,0,1,1,1,1 


016118 HY GUESS YOUR NO. RESULT 80. RIGHT 
CREATIVE COHPUTING HORRISTOWN, HEU JERSEY А А RIGHT 1 
2 0 URONG 1 
1 0 URONG 1 
2 0 URONG 1 
THIS 18 A BAME OF GUESSING. 2 0 URONG 1 
FOR INSTRUCTIONS, TYPE “1°, ELSE TYPE “0°? 1 2 0 URONG 1 
0 1 URONG 1 
PLEASE TAKE A PIECE OF PAPER AND WRITE DOWN 2 1 URONG 1 
THE DIGITS 707, "1^, OR ^2^ THIRTY TIMES AT RANDON. 0 1 URONG 1 
ARRANGE THEM IN THREE LINES OF TEN DIGITS. 2 1 WRONG 1 
I WILL ASK FOR THEH 10 AT A TIME. 
I WILL ALWAYS GUESS THEM FIRST, AND THEN LOOK AT YOUR TEN NUMBERS, PLEASE? 2,2,2,1,1,1, 1, 1,1, 1 
NEXT NUMBER TO SEE IF I WAS RIGHT. BY PURE LUCK 
1 OUGHT TO BE RIGHT 10 TIMES. BUT I HOPE TO DO BETTER MY BUESS YOUR NO. RESULT NO. RIGHT 
THAN THAT esee» 
0 2 URONG 1 
t 2 URONG 1 
1 2 URONG 1 
TEN NUMBERS, PLEASE? 1,0,2,1,1,0,1,1,2,2 2 1 URONG 1 
1 1 RIGHT 2 
HY BUESS YOUR NO. RESULT NO. RIGHT 2 1 URONG 2 
0 1 URONG 2 
0 1 URONG 9 2 1 URONG 2 
9 0 RIGHT 1 2 1 URONG 2 
1 2 URONG 1 t 1 RIGHT 3 
9 1 URONG 1 
1 1 RIGHT 2 TEN NUMBERS, PLEASE? 0,2,0,2,1,0,1,0,1,1 
1 0 URONG 2 
0 1 URONG 2 MY GUESS YOUR NO. RESULT NO. RIGHT 
1 1 RIGHT 3 
9 2 URONG 3 2 9 URONG 3 
0 2 WRONG 3 0 2 URONG 3 
2 0 URONG 3 
TEN NUMBERS, PLEASE? 2,0,2,0,1,1,2,0,0,0 2 2 RIGHT 4 
2 1 WRONG 4 
HY GUESS YOUR WO. RESULT HO. RIGHT 1 0 URONG 4 
0 1 URONG 4 
2 2 RIGHT 4 1 0 WRONG 4 
2 0 URONG 4 0 1 URONG 4 
2 2 RIGHT 5 1 1 RIGHT 5 
0 0 RIGHT 4 
1 1 RIGHT 7 І GUESSED LESS THAN 1/3 OF YOUR NUMBERS. 
' 1 RIGHT 8 YOU BEAT ME. CONGRATULATIONS *+**> 
2 2 RIGHT 9 
2 0 URDNG 9 DO YOU UANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)? O 
2 0 URONG 9 
2 0 URONG 9 THANKS FÜR THE GAME. 
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10 PRINT TABC33) ;"DIGITS" 

20 PRINT ТАВ(15); "CREATIVE COMPUTING  MORRISTQUN, NEU JERSEY" 
30 PRINT:PRINT:PRINT 

210 PRINI"THIS IS А GAHE OF GUESSING." 

220 PRINT “FOR INSTRUCTIONS, TYPE 717, ELSE TYPE 707%; 
230 INPUT E 

240 IF Ез0 THEN 360 

250 PRINT 

260 PRINT "PLEASE TAKE A PIECE OF PAPER AND WRITE DOUN" 
270 PRINT “THE DIGITS 707, 717, OR “27 THIRTY TIMES AT RANDON.” 
280 PRINT “ARRANGE THEM IN THREE LINES OF TEN DIGITS.” 

290 PRINT "I WILL ASK FOR THEN 10 AT А TIME." 

300 PRINT “I WILL ALUAYS GUESS THEM FIRST, AND THEN LOOK AT YOUR" 
310 PRINT “NEXT NUMBER TO SEE IF I WAS RIGHT. BY PURE LUCK" 
320 PRINT "I OUGHT TO BE RIGHT 10 TIMES. BUT I HOPE TO DO BETTER" 
330 PRINT “THAN THAT жэ" 

340 PRINT: PRINT 

360 READ A,B,C 

370 DATA 0,1,3 

380 DIM 8(26,2),K(2,2), (8,2) 

400 FOR 1-0 TO 26: FÜR J=0 ТО 2: НІ, Ј)=1: NEXT J: NEXT I 
410 FOR 1-0 TO 2: FOR Ј=0 TO 2: K(I,J)=9; NEXT J: NEXT I 

420 FOR 1-0 10 B: FÜR J=0 TO 2: L(I,J)s3: NEXT Js NEXT I 

450 L(0,0)72: L(4,1)=2; 1(8,2)=2 

480 2:261 2128; 2272 

510 X=0 

520 FOR Т=1 TO 3 

530 PRINT 

540 PRINT “TEN NUMBERS, PLEASE"; 

550 INPUT NCI), NCZ) NIZ) NOD RUD NCO) NOD NEB) NCP) NOLO) 
560 FOR 191 TO 10 

870 UsN(1)-1 

580 IF U=SBN(U) THEN 420 

590 PRINT “ONLY USE THE DIGITS 707, "1^, OR "27." 

400 PRINT “LET’S TRY AGAIN.": GOTO 530 

620 NEXT I 

830 PRINT: PRINT “HY BUESS","YOUR NO.", "RESULT", "НО. RIGHT" sPRINT 
660 FOR Usi TO 10 

870 NzN(U): 8=0 

490 FOR J=0 TO 2 

200 SimAeK(Z2,J)#BOL (Zt, J)+COH(Z, J) 

710 IF S»S1 THEN 740 

720 IF 5<61 THEN 740 

230 IF RND(1)€.5 THEN 760 

740 8-81: eJ 

740 NEXT J 

770 PRINT 8,N(UD, 

780 IF G=N(U) THEN 810 

790 PRINT “WRONG",X 

800 GOTO 880 

810 X=X+1 

820 PRINT "RIGHT",X 

830 H(Z,N)=B(2,N)+1 

840 L(Z1,M)=L(21,N)+1 

850 K(Z2,8)-K (22,0) 41 

860 2:2-1NT(2/9)99 

870 Z=3*Z+N(U) 

880 2122-181(2/9)*9 

890 Z2=N(U) 

900 NEXT U 

910 NEXT T 

920 PRINT 

930 IF X>10 THEN 980 

940 IF X«10 THEN 1010 

950 PRINT “I GUESSED EXACTLY 1/3 OH YOUR NUMBERS." 

960 PRINT "IT IS à TIE GAME." 

970 GOTO 1030 

980 PRINT “I GUESSED MORE THAN 1/3 OF YOUR NUMBERS," 
990 PRINT "I WIN.": FOR 0=1 TO 10: PRINT CHR$(7);: NEXT Q 
1000 6070 1030 

1010 PRINT "I GUESSED LESS THAN 1/3 OF YOUR NUMBERS." 
1020 PRINT "YOU BEAT ME. CONGRATULATIONS +0924" 

1030 PRIAT 

1040 PRINT "DO YOU WANT TO TRY AGAIN (1 FOR YES, 0 FOR NO)"; 
1060 INPUT X 

1070 IF X=1 THEN 400 

1080 PRINT: PRINT "THANKS FOR THE GANE.” 

1090 END 


. Even Wins 


This is a game between you and the ao N YOU UANT HE TO an 10 00 FIRST, AND TYPE 
computer. To play, an odd number of 20 
objects (marbles, chips, matches) are TOTALs 27 
placed in a row. You taketurns with the т РІК ur 2 MARBLES. + 
computer picking up between one and i 
four objects each turn. The game ends AND WHAT IS YOUR NEXT HOVE, HY TOTAL IS 2 
when there are no objects left, and the 72 
winner is the one with ап even number 

: N TOTAL= 23 

of objects picked up. 

Two versions of this game are YOUR TOTAL IS 2 
included. While to the player they I PICK UP 4 HARBLES, 
appear similar, the programming ap- TOTAL: 19 
proach is quite different. EVEN WINS, AND WHAT IS YOUR NEXT HOVE, HY TOTAL IS 6 
the first version, is deterministic — i.e., 74 
the computer plays by fixed, good rules 
and is impossible to beat if you don't тота 15 
know how to play the game. It always YOUR TOTAL IS ó 
starts with 27 objects, although you I PICK UP 2 MARBLES. 
may change this in Lines 250, and 1060. TOTAL? 13 
EVEN WINS ls much more interesting үү AM HAT IS YOUR NEXT MOVE, HY TOTAL IS в 
because the computer starts out only 
knowing the rules of the game. Using TOTAL= 12 
simple techniques of artificial in- YOUR TOTAL 18 7 
telligence (cybernetics), the computer I PICK UP 1 MARBLES. 
gradually learns to play from its mis- TOTAL= 11 


takes until it plays a very good game. 
After 20 games, the computer is a 
challenge to beat. Variation in the 
human's style of play seems to make TOTAL= 8 
the computer learn more quickly. If you 
plot the learning curve of this program, 


AND UHAT IS YOUR NEXT HOVE, HY TOTAL IS 9 
13 


YOUR TOTAL IS 10 
I PICK UP 1 MARBLES. 


it closely resembles classical human TOTAL? 7 

learning curves from psychological 

experiments. AND WHAT IS YOUR NEXT MOVE, HY TOTAL IS 10 
Eric Peters at DEC wrote the GAME Ti 

OF EVEN WINS. The original author of TOTAL= 6 


EVEN WINS is unknown. 
YOUR TOTAL IS 11 
I PICK UP 1 HARBLES. 
EVEN UINS TOTAL= 5 
CREATIVE COMPUTING  MORRISTQUN, NEU JERSEY 
AND UHAT IS YOUR NEXT HOVE, MY TOTAL IS 11 


11 
TOTALS 4 
THIS IS A TUO PERSON GAME CALLED ‘EVEN WINS.” YOUR TOTAL IS 12 
TO PLAY THE GAME, THE PLAYERS NEED 27 HARBLES OR I PICK UP 3 MARBLES. 
OTHER OBJECTS ON A TABLE. a 
TOTAL= 1 
THE 2 PLAYERS ALTERNATE TURNS, UITH EACH PLAYER AND WHAT IS YOUR NEXT HOVE, HY TOTAL IS 14 
REHOVING FRON 1 TO 4 MARBLES ON EACH КОМЕ. THE GAME 11 
ENDS UHEN THERE ARE NO HARBLES LEFT, AND THE UINNER 
1S THE ONE WITH AN EVEN NUMBER OF MARBLES. THAT IS ALL OF THE MARBLES. 


HY TOTAL 18 14 YOUR TOTAL IS 13 
THE ONLY RULES ARE THAT (1) YOU MUST ALTERNATE TURNS, 
(2) YOU MUST TAKE BETWEEN t AND 4 MARBLES EACH TURN, I UON. 20 YOU WANT TO PLAY 
AND (3) YOU CANNOT SKIP A TURN, AGAIN? TYPE 1 FOR YES AND O FOR NO. 
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1 PRINT ТАВ(31); “ЕУЕН WINS" 

2 PRINT TABCIS) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
3 PRINT:PRINT:PRINT 

4 Үї=0 


10 

20 

30 

40 

50 

40 

70 

80 

90 

100 
110 
120 
130 
140 
130 
140 
170 
180 
190 
200 
210 
220 
330 
240 
250 
260 
270 
280 
290 
300 
210 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
510 
520 
530 
540 
550 
540 
570 
580 
590 


Wiad 
DIH H(200,Y1(20) 
PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 
PRINT 


THIS 15 А TWO PERSON GAME CALLED “EVEN UINS.^" 
“TO PLAY THE GAHE, THE PLAYERS NEED 27 MARBLES QR" 
“OTHER OBJECTS QN A TABLE." 


THE 2 PLAYERS ALTERNATE TURNS, WITH EACH PLAYER" 
“REMOVING FROM 1 TO 4 MARBLES ON EACH HOVE. THE GAME" 
"ENDS UHEN THERE ARE NO MARBLES LEFT, AND THE WINNER" 
"IS THE ONE WITH AN EVEN NUMBER OF MARBLES." 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT " THE ONLY RULES ARE THAT (1) ҮШ MUST ALTERNATE TURNS," 
PRINT "(2) YOU MUST TAKE BETWEEN 1 AND 4 MARBLES EACH TURN," 

PRINT "AND (3) YOU CANNOT SKIP A TURN." 

PRINT 

PRINT 

PRINT 

PRINT " TYPE А 1 IF YOU WANT TO GO FIRST, AND TYPE" 

PRINT "A 0 IF YOU WANT ME TO GO FIRST." 

INPUT С 

IF С=0 THEN 250 

GOTO 1060 

T=27 

H=2 

PRINT "TDTAL=";T 

LIELIELI 

Т-Т-й 

PRINT "I PICK ШР" N;°HARBLES." 

IF Ts0 THEN 880 

PRINT "ТОТА =" {Т 

PRINT 
PRINT " 
INPUT Y 
PRINT 
IF ҮЗІ THEN i150 

IF Ү24 THEN 1160 

IF Y<=T THEN 430 

PRINT * YOU HAVE TRIED TO TAKE MORE MARBLES THAN THERE ARE" 
PRINT "LEFT. TRY AGAIN." 

GOTO 350 

Yrsyt+y 

T=T-Y 

IF T=0 THEN 880 

PRINT "TOTALz";T 

PRINT 

PRINT " YOUR TOTAL IS";Y1 

IF 15.8 THEN 880 

R=T-Ó*INT(T/6) 

IF INT(Y1/2)=Y1/2 THEN 700 

IF T<4.2 THEN 580 

IF R>3.4 THEN 620 

H=R+1 

DIET IER! 

Т-1-й 

GOTO 300 

WeT 

T=T-H 


AND WHAT IS YOUR NEXT MOVE, HY TOTAL IS";Hi 
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600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
730 
740 
770 
780 
790 
860 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 


GOTO 830 

REH 250 15 WHERE I UIN. 

IF К<4.7 THEN 460 

IF R»3.5 THEN 840 

Hel 

GOTO 670 

н=4 

ТеТ-Н 

HisHieH 

GOTO 300 

REH I AM READY 70 ENCODE THE STRAT FOR WHEN OPP TOT IS EVEN 
IF R<1.5 THEN 1020 

IF R>5.3 THEN 1020 

HER-1 

isi 

T=T-4 

IF Т<.2 THEN 790 

КЕН 18 В ZERO HERE 

8070 300 

КЕН 18 = ZERO HERE 

PRINT "I PICK UP";H; "HARBLES." 

PRINT 

GOTO 880 

REH THIS IS UHERE I UIN 

PRINT "I PICK UP";H; "MARBLES." 

PRINT 

PRINT "TOTAL = 0" 

мейі 

PRINT " THAT IS ALL OF THE MARBLES." 

PRINT 

PRINT " ҢҮ TOTAL IS";H1;" 
PRINT 

IF INT(Ht/2)-81/2 THEN 950 

PRINT * YOU WON. DO YOU WYANT TO PLAY" 

5070 740 

PRINT " I WON. DO YOU WANT TO PLAY" 

PRINT "AGAIN? TYPE 1 FOR YES AND 0 FOR NO." 
INPUT А1 

IF А1=0 THEN 1030 

Miz0 

11-0 

8070 200 
5070 640 
РКІНТ 
PRINT “OK. 
GOTO 1230 
1227 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT " 
INPUT Y 
GOTO 360 
PRINT 
PRINT "THE NUMBER OF HARBLES YOU TAKE MUST BE A POSITIVE" 
PRINT "INTEGER BETWEEN 1 AND 4." 

PRINT 
PRINT " 
PRINT 
68010 350 
END 


YOUR TOTAL IS"; ¥1 


SEE YOU LATER." 


“TOTALS? 31 


UHAT IS YOUR FIRST MOVE?" 


WHAT IS YOUR NEXT NOVE?" 


GAME OF EVEN WINS 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


DO YOU WANT INSTRUCTIONS (YES OR NO)? YES 


THE GAME IS PLAYED AS FOLLOWS: 

AT THE BEGINNING OF THE GAME, A RANDOM NUMBER OF CHIPS ARE 
PLACED ON THE BOARD. THE NUMBER OF CHIPS ALUAYS STARTS 

AS AN ODD NUMBER. ON EACH TURN, A PLAYER HUST TAKE ONE, 
TUO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO 
FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN. 

THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE 

САМЕ. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE 
DIFFICULT TO BEAT THE COHPUTER AFTER TWENTY GAMES IN A ROU. 


TRY ITI 
1 PRINT TAB(28);"GAHE OF EVEN WINS" 
TO QUIT AT ANY TINE, TYPE A ^0^ AS YOUR MOVE. 2 PRINT TABCIS); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
3 PRINT:PRINT:PRINT 
THERE ARE 21 CHIPS ON THE BOARD. 4 INPUT "DO YOU WANT INSTRUCTIONS (YES OR ND)";A$ 
COMPUTER TAKES 4 CHIPS LEAVING 17 ... YOUR MOVE? 4 5 IF A$2"NQ" THEN 20 
THERE ARE 13 CHIPS ON THE BOARD. 6 PRINT: PRINT "THE GAME IS PLAYED AS FÜLLOUS:" 
COMPUTER TAKES 4 CHIPS LEAVING 9 ... YOUR MOVE? 2 7 PRINT "AT THE BEGINNING OF THE GAME, A RANDON NUMBER OF CHIPS ARE" 
THERE ARE 7 CHIPS ON THE BOARD. 8 PRINT "PLACED ON THE BOARD. THE NUMBER OF CHIPS ALWAYS STARTS" 
COMPUTER TAKES 4 CHIPS LEAVING 3 ... YOUR HOVE? 1 9 PRINT "AS АН ODD NUMBER. ON EACH TURN, A PLAYER MUST TAKE ONE," 
THERE ARE 2 CHIPS ON THE BOARD. 10 PRINT "TUO, THREE, OR FOUR CHIPS. THE WINNER IS THE PLAYER WHO" 
COMPUTER TAKES 2 CHIPS. 11 PRINT “FINISHES WITH A TOTAL NUMBER OF CHIPS THAT IS EVEN." 
GAHE OVER ... I VINIH! 12 PRINT "THE COMPUTER STARTS OUT KNOWING ONLY THE RULES OF THE" 
13 PRINT “GAME. IT GRADUALLY LEARNS TO PLAY WELL. IT SHOULD BE" 
THERE ARE 19 CHIPS ON THE BOARD. 14 PRINT "DIFFICULT TO BEAT THE COMPUTER AFTER TWENTY GAMES IN A ROU." 
COMPUTER TAKES 4 CHIPS LEAVING 15 ... YOUR MOVE? 4 18 PRINT "TRY ITHH! 1"; PRINT 
THERE ARE 11 CHIPS ON THE BOARD. 16 PRINT “TO QUIT AT ANY ТІНЕ, TYPE A 707 AS YOUR BDVE."; PRINT 
COMPUTER TAKES 4 CHIPS LEAVING 7 ... YOUR MOVE? 2 20 DIM К(1,5) 
THERE ARE 5 CHIPS QN THE BÜARD. 25 Lz0: B=0 
COMPUTER TAKES 4 CHIPS LEAVING 1... YOUR MOVE? 1 30 FOR 120 TO 3 
GAME OVER ... I MIN!!! 40 (1,124 
50 RCO,I 4 
THERE ARE 9 CHIPS ON THE BOARD. 60 NEXT I 
COMPUTER TAKES 4 CHIPS LEAVING 5 ... YOUR MOVE? 2 70 А=0: 8-0 
THERE ARE 3 CHIPS ON THE BOARD. 90 PsINT(CESSRNDCI 49)/2) 9241 
COMPUTER TAKES 3 CHIPS. 100 IF P=1 THEN 530 
БАНЕ OVER ... YOU UIN! II 110 PRINT "THERE ARE";P;"CHIPS ON THE BOARD." 
120 EtsE 
THERE ARE 21 CHIPS ON THE BOARD. 130 Liel 
COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR MOVE? 2 140 E=(A/2<ENT(A/2)) #2 
THERE ARE 17 CHIPS ON THE BOARD. 150 L=INT((P/6-INT(P/6))%6+.5) 
COMPUTER TAKES 4 CHIPS LEAVING 13 ... YOUR HOVE? 1 160 IF R(E,L)>=P THEN 320 
THERE ARE 12 CHIPS ON THE BOARD. 170 M=R(E,L) 
COHPUTER TAKES 4 CHIPS LEAVING B ... YOUR НОМЕ? 3 180 IF М<=0 THEN 370 
THERE ARE 5 CHIPS ON THE BÜARD. 190 PzP-H 
COMPUTER TAKES 4 CHIPS LEAVING 1 ... YOUR MOVE? 1 200 IF М=1 THEN 510 
GAME OVER ... I ШІНІ!! 210 PRINT “COMPUTER TAKES";M;"CHIPS LEAVING";P;"... YOUR MOVE“; 
220 B=B+H 
THERE ARE 9 CHIPS ON THE BOARD. 230 INPUT M 
COHPUTER TAKES 2 CHIPS LEAVING 7 ... YOUR MOVE? 4 240 H=INT(H) 
THERE ARE 3 CHIPS ON THE BOARD. 250 IF ІСІ THEN 450 
COMPUTER TAKES 2 CHIPS LEAVING 1 ... YOUR MOVE? 1 280 IF M»4 THEN 460 
GAME OVER ... I MIN!!! 270 IF НОР THEN 440 
280 IF Нар THEN 360 
THERE ARE 21 CHIPS ON THE BOARD. 290 PzP-N 
COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR HOVE? 1 300 А=А+Н 
THERE ARE 18 CHIPS ON THE BOARD. 310 GOTO 100 
COMPUTER TAKES 4 CHIPS LEAVING 14 ... YOUR MOVE? 1 320 IF P=1 THEN 550 
THERE ARE 13 CHIPS ON THE BOARD. 330 PRINT "COMPUTER TAKES";P;"CHIPS." 
COMPUTER TAKES 4 CHIPS LEAVING 9 ... YOUR MOVE? 1 340 R(E,L)=P 
THERE ARE 8 CHIPS ON THE BOARD. 350 B=B+P 
COMPUTER TAKES 2 CHIPS LEAVING 4... YOUR MOVE? 1 380 IF B/2-1NT(B/2) THEN 420 
THERE ARE 5 CHIPS ON THE BOARD. 370 PRINT "GAME OVER ... YOU WINE EI": PRINT 
COMPUTER TAKES 4 CHIPS LEAVING 1 ... YOUR NOVE? 1 390 IF R(E ,L)=f THEN 480 
GAME OVER ... I WIN!!! 400 R(E,L)=R(E,L)-1 
410 GOTO 70 
THERE ARE 9 CHIPS ON THE BOARD. 420 PRINT "GANE OVER ... I ШІНІҢ: PRINT 
COMPUTER TAKES 2 CHIPS LEAVING 2 ... YOUR MOVET 4 430 GOTO 70 
THERE ARE 3 CHIPS ON THE BOARD. 450 IF Hz0 THEN 570 
COMPUTER TAKES 2 CHIPS LEAVING 1 ... YOUR НОЏЕ? 1 460 PRINT H;"IS AN ILLEGAL HOVE ... YOUR MOVE"; 
GAME OVER ... I UIN!!! 470 GOTO 230 
480 IF В(Е1,11)=1 THEN 70 
THERE ARE 21 CHIPS ON THE BOARD. 490 R(E1,L1)=R(E1,L1)-1 
COMPUTER TAKES 2 CHIPS LEAVING 19 ... YOUR NOVE? 4 500 GOTO 70 
THERE ARE 15 CHIPS ON THE BOARD. 510 PRINT “COMPUTER TAKES 1 CHIP LEAVING";P;"... YOUR NOVE”; 
COMPUTER TAKES 2 CHIPS LEAVING 13 ... YOUR MOVE? 3 520 6010 220 
THERE ARE 10 CHIPS ON THE BOARD. 520 PRINT "THERE IS 1 CHIP ON THE BOARD.” 
COMPUTER TAKES 4 CHIPS LEAVING à ... YOUR HOVE? 4 540 GOTO 120 
THERE ARE 2 CHIPS ON THE BOARD. 550 PRINT "COMPUTER TAKES 1 CHIP." 
COMPUTER TAKES 2 CHIPS, 560 GOTO 340 
GAME OVER ... I UIN!!! 870 END 


2 PRINT TABC32) ; "FLIPFLOP" 
А PRINT ТАВ(15)) "CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 


The object of this game is to change 6 PRINT:PRINT:PRINT 
a row of ten X's 10 REM *з* CREATED BY MICHAEL CASS 
XXXXXXXXXX 15 DIM A$(20) 
2 " on 
to a row of ten 08: 20 PRINT THE OBJECT OF THIS PUZZLE 15 Т0 CHANGE THIS: 
0000000000 40 PRINT "X X X X X X X X X X" 
by typing in a number corresponding 50 PRINT . 
to the position of an "X" in the line. On 40 РЕТ TO THIS: 
some numbers one position will 80 PRINT "п 000000000" 
change while on other numbers, two 90 PRINT 
will change. For example, inputting a3 100 PRINT “BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE" 
may reverse the X and 0 in position 3, по PRINT "LETTER OW SOHE NUMBERS, ONE POSITION WILL CHANGE, ON" 
but it might possibly reverse some 20 PRINT "OTHERS, TUO WILL CHANGE. TO RESET LINE TO ALL X’S, TYPE 0" 
u ight p y 130 PRINT "(ZERO) AND TO START OVER IN THE MIDDLE OF A GAME, TYPE " 
other position too! You ought to be able 140 PRINT "11 (ELEVEN)." 
to change all 10 in 12 or fewer 170 PRINT 
moves. Can you figure out a good win- M ЕЕН) 
ning strategy? | 200 PRINT "HERE IS THE STARTING LINE OF X/9." 
To reset the line to all X's (same 210 PRINT 
game), type 0 (zero). To start a new 220 C=O . . 
game at any point, type 11. НКИ 
The original author of this game was 250 PRINT 
Michael Kass of New Hyde Park, New 260 REM 
York. 270 FOR X=1 10 10 
280 A$(X)s"X" 
290 NEXT X 
FLIPFLOP 300 GOTO 320 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 310 PRINT “ILLEGAL ENTRY--TRY AGAIN." 
320 PRINT “INPUT THE NUMBER"; 
THE OBJECT OF THIS PUZZLE IS [0 CHANGE THIS: 330 INPUT N 
340 IF RCDINT(H) THEN 310 
XXXXXXXXXX 350 IF N=11 THEN 180 
360 IF N211 THEN 310 
10 THIS: 370 IF N=0 THEN 230 
380 IF H=N THEN 510 
0000000000 390 Нен 
400 IF А$(Н)="0" THEN 480 
BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE 410 А609) ="0" 
LETTER ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON 420 RzTAN(OHN/U-N) -SINCQ/N) F33638IN (BEN) 
OTHERS, TUO WILL CHANGE. ТО RESET LINE TO ALL X°S, TYPE 0 420 NzR-INT(RO 
(ZERO) AND TO START OVER IN THE MIDDLE OF A GAME, TYPE 440 HEIHT(108N) 
11 (ELEVEN). 450 IF AS(ND="0" THEN 480 
460 AS(ND="O" 
HERE IS THE STARTING LINE OF X'S. 470 GOTO 610 
A80 AS(N)="X" 
123456789 10 490 IF HzN THEN 420 
XXX X KXX XXX 500 GOTO 610 
510 IF A$(N)="0" THEN 590 
INPUT THE NUMBER? 2 520 A$(N)="0" 
123455789 10 530 Rs,592*(1/TAN(Q/N+0))/SIN(N+2+0)-COS(N) 
XOXXXXXOXK 540 NsR-INT(RO 
INPUT THE NUMBER? 3 350 NeINT(10¢N} 
123456789 10 580 IF AS(ND="O" THEN 590 
X0ODXXXOOXX 570 A$(N)="D" 
INPUT THE NUMBER? 4 580 GOTO 610 
123454278910 590 A$(N)="X" 
X000XX0DUOXX 600 IF H-N THEN 530 
INPUT THE HUMBERT 5 610 PRINT “123456789 10" 
123456799 10 620 FOR 2=1 TO 10: PRINT AS(Z)3" "i: NEXT Z 
X0000X00XX 630 С=С+1 
INPUT THE NUMBER? 9 640 PRINT 
12345478910 450 FOR Z=1 TO 10 
X000XX000X 660 IF A$(2) O"0". THEN 320 
INPUT THE NUMBERT 1 670 NEXT Z 
123456789 10 680 IF С>12 THEN 210 
0000XX000Xx 490 PRINT "VERY GOOD. YOU GUESSED IT IN DNLY";C;"DUESGES, " 
INPUT THE NUMBER? 5 700 6010 720 
123454789 10 710 PRINT "TRY HARDER NEXT TIME. IT TOOK YOU";C;"GUESSES. " 
00000X000Xx 720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE"; 
INPUT THE NUMBER? 10 730 INPUT X$ 
123456789 10 740 IF X$="NO" THEN 780 
000000008g0 760 PRINT 
VERY GOOD. YOU GUESSED IT IN ONLY B GUESSES. 770 GOTO 180 
DO YOU WANT TO TRY ANOTHER PUZZLE? NO 780 END 
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Football 


Football is probably the most pop- 
ular simulated sports game. | have seen 
some people elect to play com- 
puterized football in preference to 
watching a bowl game on television. 

Two versions of football are 
presented. The first is somewhat more 
“traditional” in that you, the player, are 
playing against the computer. You 
have a choice of seven offensive plays. 
On defense the computer seems to 
play a zone defense, but you have no 
choice of plays. The computer 
program presents the necessary rules 
as you play, and it is also the referee 
and determines penalties when an 
infraction is committed. FTBALL was 
written by John Kemeny at Dartmouth. 


In the second version of football, the 
computer referees a game played 
between two human players. Each 
player gets a list of twenty plays with a 
code value for one. This list should be 
kept confidential from your opponent. 
The codes can be changed in data 
statements 1770 for Team 1 and 1780 
for Team 2. All twenty plays аге 
offensive; a defensive play is specified 
by defending against a type of offen- 
sive play. A defense is good for other 
similar types of plays, for example, a 
defense against a flare pass is very 
good against a screen pass but much 
less good against a half-back option. 

This game was originally written by 
Raymond Miseyka of Butler, Penn- 
sylvania. 
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FTBALL 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


THIS IS DARTMOUTH CHAMPIONSHIP FOOTBALL. 

YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOWS: 
Y= SIMPLE RUN; 2= TRICKY RUN; З= SHORT PASS; 

4= LONG PASS; 5= PUNT; 6= QUICK KICK; 7= PLACE KICK. 


CHOOSE YOUR OPPONENT? RUTGERS 


DARTMOUTH WON THE TOSS 
DO YOU ELECT TO KICK OR RECEIVE? RECEIVE 


54 YARD KICKOFF 

42 YARD RUNBACK 
BALL ON DARTMOUTH 48 YARD LINE 
FIRST DOUN DARTHOUTH*x* 


NEXT PLAY? 3 

SHORT PASS. INCOMPLETE. NO GAIN 
BALL ON DARTMOUTH 48 YARD LINE 

DOUN 2 YARDS TO GO: 10 


NEXT PLAY? 4 
LONG PASS. INCOMPLETE. NO GAIN 
RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 


DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 47 YARD LINE 
DOUN 2 YARDS TO 60: 5 


NEXT PLAY? 2 

TRICKY RUN. 3 YARD LOSS 
BALL ON DARTHOUTH 50 YARD LINE 
DOUN 3 YARDS TO GO: 8 


NEXT PLAY? 2 

TRICKY RUN. — 10 YARD GAIN 
BALL ON RUTGERS 40 YARD LINE 
FIRST DOUN DARTMOUTHE# 


NEXT PLAY? 4 
LONG PASS. COMPLETE. © TOUCHDOUN +*+ 
KICK IS GOOD 


SCORE: 7 TO 0 


DARTMOUTH KICKS OFF 

45 YARD KICKOFF 

0 YARD RUNBACK 
BALL ON RUTGERS 15 YARD LINE 
FIRST DOWN RUTGERSes* 


SHORT PASS. BATTED DOWN. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOWN 2 YARDS TO 60: 10 


LONG PASS. BATTED DOWN. но GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOWN 3 YARDS TO GO: 10 


LONG PASS. INCOMPLETE. NO GAIN 
BALL ON RUTGERS 15 YARD LINE 
DOUN 4 YARDS TO GO: 10 


PUNT. 34 YARD PUNT 

15 YARD RUN BACK 
BALL ON RUTGERS 34 YARD LINE 
FIRST DOUN DARTHOUTH*** 


NEXT PLAY? 2 
TRICKY RUN. — 1 YARD LOSS 
BALL ON RUTGERS 35 YARD LINE 


NEXT PLAY? 4 
LONG PASS. COMPLETE, 
KICK IS 8000 


TOUCHDOUN жеж 


LONG PASS.  INTERCEPTED. 
BALL ON RUTGERS 44 YARD LINE 
FIRST DOUN DARTHOUTH*** 


DOUN 2 YARDS TO GOs 11 
SCORE: 14 TO 0 
NEXT PLAY? 4 
LONG PASS. INTERCEPTED. 
BALL ON RUTGERS 15 YARD LINE 


FIRST DOUN RUTGERSs** 


NEXT PLAY? 3 
SHORT PASS. INCOMPLETE. NO GAIN DARTMOUTH KICKS OFF 
BALL ON RUTGERS 35 YARD LINE 48 YARD KICKOFF 


DOUN 3 YARDS TO 60: 11 0 YARD RUNBACK 
BALL GN RUTGERS 12 YARD LINE 
FIRST DOWN RUTGERS##+ SHORT PASS. COMPLETE. 7 YARD GAIN 
BALL ON RUTGERS 22 YARD LINE 


NEXT PLAY? 2 
DOUN 2 YARDS TO GO: 3 


TRICKY RUN. 2 YARD LOSS 


RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. SHORT PASS. COMPLETE. 9 YARD GAIN 


BALL ON RUTGERS 21 YARD LINE 
DOWN 2 YARDS TO GO: 1 SHORT PASS. BATTED DOWN. 
BALL ON RUTGERS 22 YARD LINE 


DOUN 3 YARDS TO GO: 3 


NO GAIN 
DO YOU ACCEPT THE PENALTY? YES 
BALL ON RUTGERS 30 YARD LINE 


DOUN 3 YARDS TO 60: 6 SIMPLE RUN. NO GAIN 


RUTGERS OFFSIDES -- PENALTY OF 5 YARDS. 
SHORT PASS. BATTED DOUN. 
BALL ON RUTGERS 22 YARD LINE 


NO GAIN 
NEXT PLAY? 2 


TRICKY RUN. 13 YARD GAIN DO YOU ACCEPT THE PENALTY? YES DOUN 4 YARDS TO G0: 3 
BALL ON RUTGERS 17 YARD LINE BALL DN RUTGERS 16 YARD LINE 
FIRST DOWN DARTHOUTH*s* DOUN 2 YARDS TO GO: 4 
10 PRINT TAB(33) ;"FTBALL" 760 PRINT "FIRST DOUN ";0$(P); "ажа" 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 270 PRINT 
30 PRINT: PRINT: PRINT 780 PRINT 
220 PRINT "THIS IS DARTHQUTH CHAMPIONSHIP FOOTBALL." 790 GOTO 840 
230 PRINT "YOU WILL QUARTERBACK DARTMOUTH. CALL PLAYS AS FOLLOUS:" 800 REM PRINT POSITION 
240 PRINT "is SIMPLE RUN; 2= TRICKY RUN; З= SHORT PASS;" 810 IF X250 THEN 840 
250 PRINT "4- LONG PASS; S= PUNT; às QUICK KICK; 7= PLACE KICK." 820 PRINT L$(5);0$(0);X;L$(ó) 
280 PRINT 830 GOTO 850 
270 PRINT “CHOOSE YOUR OPPONENT": 840 PRINT L$(5);0$(1);100-X;L$(á) 
280 INPUT 0$(0) 850 RETURN 
290 0$(0)="DARTHOUTH" 860 REM NEU PLAY 
300 PRINT 870 LET T=T+1 
310 LET S(0)=0: LET S(1)=0 880 IF T-30 THEN 1050 
320 REM 890 IF 1<50 THEN 940 
330 DIM L$(20) 900 IF RND(1)2.2 THEN 940 
340 FOR I=1 TO 20: READ L$(I): NEXT 1 910 PRINT "END OF GAMEx#«" 
350 DATA "KICK","RECIEUE"," YARD ","RUN BACK FOR ","BALL QN " 920 PRINT "FINAL SCORE: ";0$(00;5(00;" ":09(1);5(1) 
360 DATA "YARD LINE"," SIMPLE RUN"," TRICKY RUN"," SHORT PASS" 930 STOP 
370 DATA " LONG PASS","PUNT"," QUICK KICK "," PLACE KICK"," LOSS " 940 IF P=t THEN 1870 
380 DATA " NO GAIN","GAIN "," TOUCHDOWN "," TOUCHBACK ","SAFETYer*" 950 PRINT "NEXT PLAY"; 
385 DATA "JUNK" 960 INPUT Z 
390 LET PEINT(NBCU 2) 970 IF ZO INT(Z) THEN 990 
400 PRINT 0$(P);" WON THE TOSS" 980 IF ABS(Z-4)<=3 THEN 1010 
410 DEF FNF(°X)=1-2*P 990 PRINT "ILLEGAL PLAY NUMBER, RETYPE"; 
420 DEF FN5(Z)=P*(X1-X)+(1-P)*(X-X1) 1000 0070 760 
430 IF Р=0 THEN 470 1010 LET F=0 
440 PRINT 0$(1);" ELECTS TO RECIEVE" 1020 PRINT L$(Zt6),", "5 
450 PRINT 1030 LET R=RND(1)*(.98+FNF(01)*.02) 
460 GOTO 580 1040 LET RIERND(1) 
470 PRINT "DO YOU ELECT TO KICK OR RECEIVE"; 1050 ON Z 8070 1110,1150,1260,1480,1570, 1570, 1480 
ABO INPUT A$ 1060 ВЕН JEAN’S SPECIAL 
490 PRINT 1070 IF RND(1)> 1/3 THEN 940 
500 FOR E=1 TO 2 1080 PRINT "GAME DELAYED. DOG ON FIELD." 
510 IF A$-L$(E) THEN 550 1090 PRINT 
520 NEXT E 1100 GOTO 940 
520 PRINT “INCORRECT ANSWER. PLEASE TYPE “KICK” OR "RECEIVE"; 1110 КЕН SIMPLE RUN 
540 GOTO 480 1120 LET YzINT(24*(R-.5)^ 343) 
550 IF Е=2 THEN 580 1130 IF RND(1)<.05 THEN 1180 
560 LET Р=1 1140 GOTO 2190 
580 LET X=40+(1-P) #20 1150 REM TRICKY RUN 
590 LET YeINT(200#(RND(1)-.5)°3455) 1180 LET Y=INT(20#R~5) 
600 PRINT Y;L$(3);" KICKOFF" 1170 IF RND(1)>.1 THEN 2190 
610 LET X=X-FNF(1)4Y 1180 LET F=-1 
620 IF ABS(X-50)>=50 THEN 700 1190 LET X3=X 
830 LET Y=INT(50*#RND(1)2 2)+(1-P)*INT(50*RND(1) 4) 1200 LET Х=Х+ЕНЕ(1)+Ү 
640 LET X=X+FNF(1)*Y 1210 IF ABS(X-50)>=50 THEN 1240 
650 IF ABS{(X-50)>=50 THEN 655 1220 PRINT "***FUMBLE AFTER "5 
651 PRINT YsL$(3)3" RUNBACK" 1230 GOTO 2230 
452 GOTO 720 1240 PRINT "*t*FUHBLE." 
455 PRINT L$(4); 1250 GOTO 2450 
660 GOTO 2600 1260 REM SHORT PASS 
700 PRINT "TOUCHBACK FOR ";0$(P) 1270 LET Y=INT(60#(RI-.5)°3410) 
710 LET X:20*P*60 1280 IF R<.05 THEN 1330 
720 REM FIRST DOWN 1290 IF RX.15 THEN 1390 
730 GOSUB 800 1300 IF R<.55 THEN 1420 
740 LET Xt-X 1310 PRINT “COMPLETE. "5 
250 LET D=1 1320 GOTO 2190 
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1330 IF D=4 THEN 1420 2250 PRINT 1%(15+56Н(Ү)) 


1340 PRINT "INTERCEPTED." 2280 IF ABS(X3-50)>40 THEN 2300 
1350 LET Fz-1 2290 IF RND(1)<.1 THEN 2860 

1360 LET X=X+FNF(1)*Y 2300 B0SUB 800 

1370 IF ABS(X-50)2250 THEN 2450 2310 IF F=0 THEN 2340 

1380 GOTO 2300 2320 LET Р=}-Р 

1390 PRINT "PASSER TACKLED. "3 2330 GOTO 740 

1400 LET Y=-INT(10*R1) 2340 IF FNG(1)2210 THEN 740 

1410 GOTO 2190 2350 IF D=4 THEN 2320 

1420 LET Y=0 2360 LET D=D+1 

1430 IF RND(1)<.3 THEN 1460 2370 PRINT "DOUN ";D;" ne 

1440 PRINT “INCOMPLETE. "5 2380 IF (Xt-50)eFNF(1)<40 THEN 2410 
1450 GOTO 2190 2390 PRINT "GOAL TO GO" 

1460 PRINT "BATTED DOUN. "; 2400 GOTO 2420 

1470 6010 2190 2410 PRINT "YARDS TO 60: ";10-FNG() 
1480 REM LONG PASS 2420 PRINT 

1490 LET Y=INT(160#(R1-.5) °34+30) 2430 PRINT 

1500 IF R<.1 THEN 1330 2440 GOTO 860 

1510 IF RX.3 THEN 1540 2450 REH BALL IN END-ZONE 

1520 IF 85.25 THEN 1420 2480 IF X>=100 THEN 2490 

1930 GOTO 1310 2470 LET Е-0 

1540 PRINT "PASSER TACKLED. "3 2480 GOTO 2500 

1550 LET Үз-ІНТ(15%8133) 2490 LET E=} 

1560 6070 2190 2500 ON 1*E-F*24P*4 GOTO 2510,2590,2760,2710,2590,2510,2710,2760 
1570 REM PUNT OR KICK 2510 REM SAFETY 

1580 LET Y=INT(100*#(R~.5) 3635) 2520 LET S(1-P)=S(1-P)+2 

1590 IF D-4 THEN 1410 2530 PRINT L$(19) 

1600 LET YsINT(Y*1.3) 2540 GÜSUB 2800 

1610 PRINT Y;L$ CD ;" PUNT” 2550 PRINT 0$(P);" KICKS OFF FROM ITS 20 YARD LINE." 
1620 IF ABS(X+Y#FNF(1)-50)>=50 THEN 1670 2560 LET X=204P#60 

1630 IF D<4 THEN 1670 2570 LET Р=1-Р 

1640 LET YtzINT(RI^2*20) 2580 GOTO 590 

1650 PRINT Y1;L$C3);" RUN BACK" 2590 REM OFFENSIVE TD 

1660 LET ҮзҮ-Ү1 2800 PRINT L$(17) j "xa" 

1870 GOTO 1350 2610 IF RND(1)>.8 THEN 2680 

1680 КЕН PLACE KICK 2620 LET S(P)=S(P)+7 

1690 LET Y=INT(100*(R-.5)"3+35) 2630 PRINT "KICK IS GOOD" 

1700 IF Ri».13 THEN 1750 2640 GÜSUB 2800 

1710 PRINT "KICK IS BLOCKED#+#" 2650 PRINT D$(P);" KICKS OFF" 

1720 LET X=X-S*FNF(1) 2660 LET P=1-P 

1730 LET P=i-P 2670 6270 580 

1740 GOTO 720 2680 PRINT "KICH IS OFF TO THE SIDE" 
1750 LET Х<ХФЕНЕ (19 жҮ 2690 LET S(P)-S(P)*6 

1760 IF ABS(X-50)2240 THEN 1810 2700 GOTO 2640 

1770 PRINT "KICK IS SHORT." 2710 REM TOUCHBACK 

1780 IF ABS(X-50)>=50 THEN 2710 2720 PRINT L$(18) 

1790 Р-1-Р 2730 LET Pz1-P 

1800 80T0 630 2740 LET Х=20+Рж40 

1810 IF Кі>.5 THEN 1840 2750 GOTO 720 

1820 PRINT "KICK IS OFF TO THE SIDE." 2760 REM DEFENSIVE TD 

1830 GOTO 2710 2770 PRINT L$C17) ;"FOR ";0$C1-P) к" 
1840 PRINT "FIELD БОА. ж+ж" 2780 LET P=1-P 

1850 LET S(P)=S(P)+3 2790 GOTO 2600 

1860 GOTO 2640 2800 REM SCORE 

1870 REM ОРРОНЕНТ”5 PLAY 2810 PRINT 

1880 IF D)! THEN 1940 2820 PRINT "SCORE: ";5(0);" TO '"58(0) 
1890 IF RND(1)>1/3 THEN 1920 2830 PRINT 

1900 LET 153 2840 PRINT 

1910 GOTO 1010 2850 RETURN 

1920 LET Z=1 2860 REM PENALTY 

1930 8070 1010 2870 LET PS=INT(2#RND(1)) 

1940 IF D=4 THEN 2090 2880 PRINT 0$(P3);" OFFSIDES -- PENALTY OF 5 YARDS," 
1950 IF 10+X-X1<5 THEN 1890 2890 PRINT 

1960 IF X<5 THEN 1890 2900 PRINT 

1970 IF Х<=10 THEN 2140 2910 IF P3-0 THEN 2980 

1980 IF X>X1 THEN 2020 2920 PRINT "DO YOU ACCEPT THE PENALTY"; 
1990 LET A=INT(2#RND(1)) 2930 INPUT A$ 

2000 LET 1=2+4%2 2940 IF A$="NO" THEN 2300 

2010 GOTO 1010 2950 IF A$="YES" THEN 3110 

2020 IF D<3 THEN 1990 2960 PRINT "TYPE “YES” OR “807%; 
2030 IF Х<45 THEN 1990 2970 GOTO 2930 

2040 IF RND(1)>1/4 THEN 2070 2980 REM ÜPPONENT^S STRATEGY ON PENALTY 
2050 LET 1:6 2990 IF Р=1 THEN 3040 

2060 GOTO 1010 3000 IF Y4-0 THEN 3080 

2070 LET 1-4 3010 IF FCO THEN 3080 

2080 GOTO 1010 3020 IF FNG(1)X3*D-2 THEN 3080 

2090 IF X>30 THEN 2140 3030 GOTO 3100 

2100 IF 10%Х-Х1<3 THEN 1890 3040 IF Ү<<5 THEN 3100 

2110 IF X43 THEN 1890 3050 IF Ғ<0 THEN 3100 

2120 LET 1-7 3060 IF DX4 THEN 3080 

2130 BOTO 1010 3070 IF FNG(1)X10 THEN 3100 

2140 LET 255 3080 PRINT "PENALTY REFUSED." 

2150 GOTO 1010 3090 GOTO 2300 

2160 LET A=INT(2#RND(1)) 3100 PRINT "PENALTY ACCEPTED." 

2170 LET 2=2+4 3110 LET Ғ-0 

2180 GOTO 1010 3120 LET р=р-1 

2190 REM GAIN OR LOSS 3130 IF P<>P3 THEN 3160 

2200 LET Х3-Х 3140 LET X-X3-FNF (1) 45 

2210 LET X=X+FNF(1)#*Y 3150 GOTO 2300 

2220 IF ABS(X-30)>=50 THEN 2450 3160 LET X=X3+FNF (1345 

2230 IF Y=0 THEN 2250 3170 GOTO 2300 

2240 PRINT ABS(Y);L$(3)3 3180 END 
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FOOTBALL 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED) 


DO YOU WANT INSTRUCTIONS? YES 

THIS IS А GAME FOR TWO TEAMS IN WHICH PLAYERS HUST 
PREPARE A TAPE WITH & DATA STATEMENT (1770 FOR TEAM 1, 
1780 FOR TEAM 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20 
THESE NUMBERS ARE THEN ASSIGNED 70 20 GIVEN PLAYS. 

A LIST OF NOS, AND THEIR PLAYS ARE PROVIDED UITH 

BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE 
PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN 
WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED 
BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT А 
FIELDGOAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS WILL BE 
ASKED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER 


YOU WANT TO PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER [QO 


BOTH QUESTIONS IS NO IT WILL ВЕ ASSUMED YOU YANI TO 

TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO. 
THE GAME IS PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C). 
PLEASE PREPARE А TAPE AND RUN. 


PLEASE INPUT SCORE LIMIT ON GAME? 28 
TEAH 1 PLAY CHART 
NO. PLAY 


12 PITEHOUT 

8 TRIPLE REVERSE 
4 DRAW 

i4 QB SNEAK 

19 END AROUND 

3 DOUBLE REVERSE 
10 LEFT SWEEP 

1 RIGHT SHEEP 

7 OFF TACKLE 

1t WISHBONE OPTION 
15 FLARE PASS 

9 SCREEN PASS 

3 ROLL OUT OPTION 
20 RIGHT CURL 

13 LEFT CURL 

t8 — VISHBONE OPTION 
16 SIDELINE PASS 

2 HALF-BACK OPTION 
12  RAZILE-DAZZLE 

ó BOMB!!! 


TEAR OFF — 


TEAK 2 PLAY CHART 
NO. PLAY 


20 PITCHOUT 

2 TRIPLE REVERSE 
17 — DRAW 

3 QB SNEAK 

8 END AROUND 

18 DOUBLE REVERSE 
12 LEFT SUEEP 

1t RIGHT SUEEP 

1 ОРЕ TACKLE 

4 WISHBONE OPTION 
1? FLARE PASS 

14 SCREEN PASS 

10 ROLL QUT OPTION 
? RIGHT CURL 

? LEFT CURL 

15 WISHBONE OPTION 
é SIDELINE PASS 
13 HALF-BACK OPTION 
16 — RAZILE-DAZZLE 

3 BOMBS! 


TEAR OFF HERE-------- а 


TEAM I [O 10 20 30 40 50 50 70 80 90 1001 TEAM 2 
TEAN 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL. 


THE COIN IS FLIPPED 
APEEEEEEEE s sasa aka ass S TEESE EEE EET TT EEE EE НУН 


TEAK 1 RECEIVES KICK-OFF 
BALL WENT 52 YARDS. NOU ON 8 

---> 
TEAM 1 CO 10 20 30 40 50 60 70 BO 90 1001 TEAN 2 
TEAM 1 DO YOU WANT TO RUNBACK? YES 


RUNBACK TEAM 1 ~1 YARDS 


TEAK 1 DOUN 1 ON 7 


10 YARDS TO 18T DOWN 
m 
TEAM 1 [O 10 20 30 40 50 40 70 80 90 1001 [EAH 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 4,2 
QUARTERBACK SCRAMBLED 


NET YARDS GAINED ON DOWN 1 ARE 33 


TEAN 1 DOWN 1 ON 40 
10 YARDS TO 187 DOUN 
-—-› 
TEAM 110 10 20 30 40 50 é 70 80 90 1001 TEAM 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 6,4 
PASS INCOMPLETE TEAM 1 
NET YARDS GAINED ON DOUN 1 ARE 0 


LELEREELILIII 


TEAK 1 DQUN 2 QN 40 


10 YARDS TO 1ST DOUN 
=-->) 
ТЕАН 1 [0 10 20 30 40 50 á 20 80 90 100 TEAM 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 14,4 
PASS INCOHPLETE TEAM 1 
NET YARDS GAINED ON DOWN 2 ARE 0 


TEAM 1 DOUN 3 ON 40 
10 YARDS TO 1ST DOUN 
---› 
TEAM 1 (0 10 20 30 40 50 40 70 80 90 1001 TEAN 2 


INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 9,4 
QUARTERBACK SCRAMBLED 


NET YARDS GAINED ON DOWN 3 ARE 1 


TEAM 1 DOUN 4 ON 41 
9 YARDS TO 1ST DOWN 
---» 
TEAM 1 [0 10 20 30 40 50 40 70 B 90 1001 TEAN 2 


DOES TEAM 1 WANT TO PUNT? NO 
DOES TEAM 1 WANT TO ATTEMPT A FIELD GOAL? NO 
INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 13,20 
QUARTERBACK SCRAMBLED 
NET YARDS GAINED ON DOWN 4 ARE -2 
CONVERSION UNSUCCESSFUL TEAM 1 
FU FEEEEEE EEUU EE EE E ТВНЫН ВНЕ НТВ E EE EE EUER EE A 
TEAK 2 DOWN 1 ON 39 
10 YARDS TO 1ST DOUN 

‹--- 
TEAN 1 CO 10 20 30 40 50 40 70 80 90 1001 IEAH 2 
INPUT OFFENSIVE PLAY, DEFENSIVE PLAY? 3,11 
PASS INCOMPLETE TEAK 2 


NET YARDS GAINED ON DOWN 1 ARE 0 


БЕБЕ 
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1 PRINT TAB(32);"FOOTBALL” 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
3 PRINT:PRINT:PRINT 


100 
120 
130 
140 
145 
150 
140 
168 
170 
180 
190 
195 
200 
210 
220 
223 
225 
227 
230 
240 
250 
260 
270 
280 
290 
300 
330 
330 
360 
370 
380 
410 
420 
430 
440 
450 
460 
630 
640 
450 
660 
470 
680 
890 
700 
710 
720 
725 
730 
740 
760 
765 
770 
780 
790 
794 
795 
736 
810 
830 
840 
845 
850 
870 
880 
885 
890 
893 
895 
8?7 
898 
900 
901 
902 
904 
910 
920 
920 
924 
940 
950 
960 
970 
975 
980 
985 
990 


ВЕН 

DIM А(20),8(20),0(40),Н(2),1(2),62),Х(2),Ү(2),1(2) 

DIN H$(2),D(2),P$(20) 

PRINT “PRESENTING N.F.U. FOOTBALL (NO FORTRAN USED)" 

PRINT: PRINT 

INPUT "DO YOU WANT INSTRUCTIONS"; As 

IF A$="NÜ" THEN 290 

IF A$O"YES" THEN 150 

PRINT "THIS IS A GAME FOR TWO TEAMS IN WHICH PLAYERS MUST" 
PRINT “PREPARE А TAPE WITH A DATA STATEMENT (1770 FOR TEAM 1," 
PRINT "1780 FOR TEAH 2) IN WHICH EACH TEAM SCRAMBLES NOS. 1-20" 
PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS.“ 
PRINT“A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH" 

PRINT "BOTH TEANS HAVING THE SANE PLAYS. THE MORE SIMILAR THE" 
PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN" 

PRINT "WHENEVER SCORES ARE MADE. SCORES HAY ALSO BE OBTAINED" 
PRINT "BY INPUTTING 99,99 FOR PLAY NOS. TO PUNT OR ATTEMPT а" 
PRINT "FIELDGÜAL, INPUT 77,77 FOR PLAY NOS. QUESTIONS WILL BE" 
PRINT “ASKED THEN. ON 4TH DOWN YOU WILL ALSO BE ASKED WHETHER" 
PRINT “YOU WANT TG PUNT OR ATTEMPT A FIELD GOAL. IF THE ANSWER TO" 
PRINT “BOTH QUESTIONS IS NO IT WILL BE ASSUMED YOU WANT TO" 
PRINT "TRY AND GAIN YARDAGE. ANSWER ALL QUESTIONS YES OR NO." 
PRINT "THE GAME 15 PLAYED UNTIL PLAYERS TERMINATE (CONTROL-C). " 
PRINT "PLEASE PREPARE A TAPE AND RUN.": STOP 

PRINT;PRINT "PLEASE INPUT SCORE LIMIT ON GAHE";:INPUT E 

FOR Ізі Т0 40: READ N: IF 1220 THEN 350 

A(N)=I: GOTO 360 

В(Н)=1-20 

С(1)=Н: NEXT I 

FOR 1=1 TO 20: READ Р9(1): NEXT I 

L0: Т1 

PRINT "TEAH"; T; "PLAY CHART" 


PRINT "NO. PLAY" SPRINT 
FOR 1=1 TO 20 

КЕН 

PRINT СІНІҢ ТАВ(ӨЗІРЗ СІ? 
NEXT I 

LsL*20:122 

PRINT 


PRINT "TEAR OFF HERE------ mmm mmm 99 mem m ^ 
FOR X=1 TO 11: PRINT: NEXT X 

FOR Z=1 TO 3000: NEXT 2 

IF L=20 THEN 410 

D(1)-0: 002) =3: Н) ="): H$(2)s" ---" 

Н(1)=0: Н(2)=0: 1(1)=2: 15291 

Ш(1)=-1: W(2)=l1: Х(1)=100: Х(2)=0 

Yes Y(2)==-1: 1(1)#0: Z(2)=100 

GOSUB 1910 

PRINT “TEAK 1 DEFENDS 0 YD GOAL -- TEAM 2 DEFENDS 100 YD GOAL.” 
T=INT(2*RND(1)+1) 

PRINT: PRINT "THE COIN IS FLIPPED" 

P=X(T)-Y(T)*40 

GOSUB 1860: PRINT : PRINT "TEAH";T;"RECEIVES KICK-UFF" 
K=INT(26@RND(1)440) 

P=P=Y(T)*K 

IF B(TD*P<Z(T)+10 THEN 810 

PRINT: PRINT "BALL WENT NUT OF ENDZONE --AUTONATIC TOUCHBACK--" 
GOTO 870 

PRINT "BALL UENT";K;"YARDS. NOW ON";P:GOSUD 1900 
PRINT "TEAM"; T;"DÜ YOU WANT TO RUNBACK"; :INPUT A$ 

IF AS="YES" THEN 1430 

IF A$O "NO" THEN 830 

IF U(T)*P<Z(T) THEN 880 

P=Z(1)-W(T}#20 

Deis SsP 

FOR 1=1 TO 22: PRINT "z";: NEXT I 

PRINT: PRINT "TEAM"; T; "DOUN" D; "DN" ;P 

IF DO THEN 900 

IF Y(T)*(P+Y(T)*10)>=X(T) THEN 898 

C-4: GOTO 900 

C8 

IF C-8 THEN 904 

PRINT TAB(272;10- (YCT)&P-Y C288) ;" YARDS. TO IST DOWN" 
GOTO 910 

PRINT ТАВ(27};Х(Т)-Ү(Т)®Р;" YARDS" 

GOSUB 1900: IF D=4 THEN 1180 

БЕН 

UsINT(34RND(O)-1): GOTO 940 

PRINT "ILLEGAL PLAY NUMBER, CHECK AND" 

PRINT “INPUT OFFENSIVE PLAY, DEFENSIVE PLAY"; 

IF T=2 THEN 970 

INPUT P1,P2: GOTO 975 

INPUT P2,P1 

IF P1=77 THEN 1180 

IF P1220 THEN 1800 

IF РІСІ THEN 1800 

IF P2220 THEN 1800 


992 IF P2<1 THEN 1800 


995 РІ-ІНТІРІ): 


1000 
1005 
1010 
1012 
1015 
1020 
1025 
1030 
1035 
1037 
1040 
1045 
1048 
1050 
1060 
1070 
1080 
1100 
1110 
1120 
1130 
1140 
1160 
1120 
1180 
1185 
1187 
1190 
1195 
1200 
1210 
1215 
1217 
1230 
1240 
1280 
1290 
1320 
1340 
1360 
1380 
1390 
1420 
1430 
1440 
1460 
1480 
1485 
1490 
1500 
1510 
1840 
1645 
1680 
1460 
1680 
1690 
1700 
1710 
1720 
1735 
1740 
1742 
1744 
1745 
1750 
1770 
1780 
1790 
1792 
1794 
1796 
1798 
1800 
1810 
1820 
1825 
1827 
1830 
1835 
1850 
1860 
1870 
1900 
1910 
1915 
1920 
1930 
2000 
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P2=INT(P2) 
Y=INT(ABS(A(P1)-B(P2))/19*((X(T)-Y(T)*P+25)*RND(1)-15)) 
PRINT: IF T=2 THEN 1015 

IF А(Р1)<11 THEN 1048 

GOTO 1020 

IF В(Р2)<11 THEN 1048 

IF U<>O0 THEN 1035 

PRINT “PASS INCOMPLETE TEAMN";T 

Ys0: 8070 1050 

B=RND(1): IF 65.025 THEN 1040 

IF Y»2 THEN 1045 

PRINT "QUARTERBACK SCRAMBLED": GOTO 1050 

PRINT "PASS COMPLETED": GOTO 1050 

PRINT "THE BALL WAS RUN" 

P=P-U(T) Y 

PRINT: PRINT "NET YARDS GAINED ON DÜUN";D;"ARE ";Y 
G-RND(I): IF 82.025 THEN 1110 

PRINT: PRINT "++ LOSS OF POSSESSION FROM TEAM";T;"TO TEAM" ;T(T) 
B08UB 1850: PRINT: T=T(T): GOTO 830 

IF Y(T)#P>=X(T) THEN 1320 

IF D(T)*P>=Z(T) THEN. 1230 

IF Y(T)*#P-Y(T)*S>=10 THEN 880 

0=0+1: IF 8525 THEN 885 

PRINT: PRINT “CONVERSION UNSUCCESSFUL TEAH";T:T-T(T) 
GOSUB 1850; GOTO 880 

PRINT "DOES TEAH";T;"UANT TO PUNT";: INPUT À$ 

IF AS="NO" THEN 1200 

IF ASCO"YES" THEN 1180 ` 


PRINT:PRINT "TEAM";T;"UILL PUNT": G=RND(1): IF G<.025 THEN 1080 
GOSUB 1850: K=INT(25*#RND(1)4+395)s T=T(T)s GOTO 790 

PRINT "DOES TEAH";T; "WANT TO ATTEMPT A FIELD GOAL"s: INPUT A$ 

IF AS="YES" THEN 1640 

IF AS<"NO" THEN 1200 

GOTO 920 

PRINT: PRINT "SAFETY AGAINST TEAN"; ТГ) Жакка КККК ЕК CR OH 0H" 


H(T(T))=H(T(T))+2;: GOSUB 1810 

PRINT"TEAH";T;"DO YOU WANT TO PUNT INSTEAD OF A KICHÜFF";:INPUT A$ 
PaZ(T)-U(T) #203 IF A$="YES" THEN 1190 

PRINT: PRINT “TOUCHDOWN BY TEAK"; Т; "офи тез 02 ККЖ ЕК ҮКА TEAK" 
0:7: G=RND(1): IF 62.1 THEN 1380 

0-6: PRINT "EXTRA POINT NO GOOD": GOTO 1390 

PRINT "EXTRA POINT GOOD" 

HOD HOD: GOSUB 1810 

Те1(7): GOTO 745 

K=INT(9*RND(O) +1) 

R=INT(((X(T)-Y(T)*P+25)*#RND(1)-15)/K) 

PzP-UCT)«R 

PRINTSPRINT "RUNBACK TEAH";T;R;"YARDS" 

G=RND(1): IF 6.025 THEN 1080 

IF ¥(T)#P>=X(T) THEN 1320 

IF M(T)*P>=Z(T) THEN 1230 

GOTO 880 

PRINT: PRINT "TEAM"; T; "WILL ATTEMPT A FIELD GUAL" 

G=KND(1): IF G<.025 THEN 1080 

FEINT(35#RND(1 2420) 

PRINT: PRINT "KICK IS";F;"YARDS LONG" 

PzP-UCT)*F: G=RND01) 

IF 64.33 THEN 1735 

IF Y(T)#PCX(T) ІНЕН 1240 

PRINT "FIELD GOAL GOOD FÜR TEAM";T; "ЖЕК КККК ЖК жҮЕА" 
ü-3: GOTO 1390 

PRINT "BALL VENT WIDE" 

PRINT "FIELD GOAL UNSUCCESFUL ТЕАН";Т)"------<---------- [00 BAD" 
GOSUB 1850: IF Y(T)*PCXCT)*10 THEN 1745 

T=T(T)s GOTO 794 

PRINT: PRINT "BALL NOW ОН";Р 

T=T(T): GOSUB 1900: GOTO 830 


DATA 12,8,4,14,19,3,10,1,2,11,15,7,5,20,13,18,16,2,12,6 

DATA 20,2, 17,5)8, 18,12, tty 1,4, 17,14, 10,257) 15,6713, 14,3 

DATA "PITCHOUI","TRIPLE REVERSE", "DRAW", "ОВ SNEAK", "END AROUND" 
DATA “DOUBLE REVERSE","LEFT SWEEP", "RIGHT SWEEP", "ПЕР TACKLE" 

DATA “WISHBONE OPTION’, "FLARE PASS", "SCREEN PASS" 

DATA "ROLL OUT OPTION", "RIGHT CURL","LEFT CURL", "WISHBONE OPTION" 
DATA "SIDELINE PASS","HALF-BACK OPTION", "RAZZLE-DAZZLE", "BOMB!!!" 
LF Р1(999 THEN 936 


PRINT: PRINT "TEAK 1 SCORE IS" H(I) 

PRINT "TEAH 2 SCORE I8";H(2): PRINT 

IF H(T)<E THEN 1830 

PRINT "TEAH"; T; ШКБ аак: GOTO 2000 
IF Pis99 THEN 940 

RETURN 

PRINT 

FOR X=1 TO 72: PRINT "t"j: NEXT X: PRINT 

RETURN 

PRINT TABCDCT)HS4P/2)  H8CT) 


PRINT "TEAM i [O 10 20 30 40 50 40 70 B 90"; 
PRINT " 100] TEAK 2" 

PRINT 

RETURN 

END 


Fur Trader 


You are the leader of a French fur 
trading expedition in 1776 leaving the 
Ontario area to sell furs and get 
supplies for the next year. You havea 
choice of three forts at which you may 
trade. The cost of supplies and the 
amount you receive for your furs will 
depend upon the fort you choose. You 
also specify what types of furs that you 
have to trade. 

The game goes on and on until you 
elect to trade no longer. 

Author of the program is Dan 
Bachor, University of Calgary, Alberta, 
Canada. 


FUR TRADER 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 
1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET 
SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE 
FORTS AT WHICH YOU MAY TRADE. THE COST OF SUPPLIES 

AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND 

ON THE FORT THAT YOU CHOOSE. 
DO YOU WISH TU TRADE FURS? 
ANSWER YES OR NO ? YES 

YOU HAVE $ 600 SAVINGS, 

AND 190 FURS TO BEGIN THE EXPEDITION. 


YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 


HOW MANY HINK PELTS DO YOU HAVE? 40 
HOW MANY BEAVER PELTS DO YOU HAVE? 50 
HOW MANY ERMINE PELTS DO YOU HAVE? 60 


HOW HANY FOX PELTS DO YOU HAVE? 40 

DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 
OR FORT 3? FORT ! IS FORT HOCHELAGA (MONTREAL) 

AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 
FORT 2 15 FORT STADACONA (QUEBEC) AND IS UNDER THE 
PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU HUST 
MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL. 
YOU HUST CROSS THROUGH IROQUOIS LAND. 

ANSWER 1, 2, OR 3. 

43 

YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT 

FORT NEW YORK YOU WILL RECEIVE THE HIGHEST VALUE 
FOR YOUR FURS. THE COST OF YOUR SUPPLIES 
WILL’ ВЕ LOUER THAN AT ALL THE OTHER FORTS. 
DO YOU WANT TO TRADE AT ANOTHER FORT? . 
ANSWER YES OR NO 1 YES 
ANSUER 1, 2, OR 3. 

?2 

YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COHPARSION, 
HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN 
THE ROUTE TO NEU YORK. 


DU YOU WANT TO TRADE AT ANOTHER FORT? 
ANSWER YES OR NO * NO 


YOUR САМОЕ UPSET IN THE LACHINE RAPIDS. 
LOST ALL YOUR FURS 
SUPPLIES AT FORT STADACONA COST $125.00 


YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00 (С. 
` 
YOU NOU HAVE $ 460 INCLUDING YOUR PREVIOUS SAVINGS \ Wed 


DO YOU WANT TO TRADE FURS NEXT YEAR? 
ANSWER YES OR NO 7 YES 


YOU WILL RECEIVE AN AVERAGE VALUE 
FOR YOUR FURS AND THE COST GF YOUR SUPPLIES WILL BE AVERAGE 


J 


YOU HAVE $ 460 SAVINGS. 
AND 190 FURS TO BEGIN THE EXPEDITION. 


YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING 
KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX. 


HOW MANY HINK PELTS DO YOU HAVE? 50 
HOW MANY BEAVER PELTS DO YOU HAVE? 100 
HOW MANY ERMINE PELTS DO YOU HAVE? 20 


HOW MANY FOX PELTS BO YOU HAVE? 20 

DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2, 
OR FORT 3? FORT 1 IS FORT HOCHELAGA (MONTREAL) 
AND IS UNDER THE PROTECTION OF THE FRENCH ARMY. 
FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE 
PROTECTION OF THE FRENCH ARMY.  HOUEVER, YOU MUST 
MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS. 

FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL. 
YOU HUST CROSS THROUGH 18000015 LAND. 

ANSUER 1, 2, OR 3. 
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YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. АТ 

FORT HEU YORK YOU WILL RECEIVE THE HIGHEST VALUE 
FOR YOUR FURS. THE COST OF YOUR SUPPLIES 

WILL BE LOWER THAN AT ALL THE OTHER FORTS. 

DO YOU WANT TO TRADE AT ANOTHER FORT? 

ANSUER YES OR NO ? NO 


YOU NARROULY ESCAPED AN IROQUOIS RAIDING PARTY. 
HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND. 
SUPPLIES AT NEW YORK COST $80.00 

YOUR TRAVEL EXPENSES Т0 NEW YORK ШЕКЕ $25.00 


YOU NOW HAVE $ 355 INCLUDING YOUR PREVIOUS SAVINGS 


DO YOU WANT TO TRADE FURS NEXT YEAR? 
7 NO 


ANSUER YES OR NO 


Ë 


t DIM F(4) 

2 PRINT TAB(31);"FUR TRADER" 

4 PRINT TAB(TS);°CREATIVE COMPUTING NORRISTOWN, NEU JERSEY" 

6 PRINT: PRINT: PRINT 

15 GOSUB 1071 

16 LET I-600 

17 PRINT "DO YOU WISH TO TRADE FURS?" 

18 GOSUB 1402 

19 IF BS="YES" THEN 100 

20 IF B$-"YES " THEN 100 

21 STOP 

100 PRINT 

101 PRINT "YOU HAVE $";I "SAVINGS." 

102 PRINT "AND 190 FURS TO BEGIN THE EXPEDITION." 

261 LET ET2INTCC,T558NDCT) 4$, 95)810724,5)/1072 

262 LET BIt-INTCC.25€RNDCT) 4 .00)€10^24,5)/1072 

300 PRINT 

301 PRINT "YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING” 
302 PRINT "KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX." 

310 GOSUB 1430 

315 RESTORE 

330 FÜR J=1 TO 4 

332 READ BS 

333 PRINT 

335 PRINT "HOU MANY ";B$;" PELTS DO YOU HAVE": 

338 INPUT F(J) 

340 LET F(0)=F(1)+F(2)+F(3)+F(4) 

342 IF F(0)-190 THEN 1100 

344 IF Ғ(0)2190 THEN 500 

348 NEXT J 

350 GOTO 1100 

500 PRINT 

501 PRINT "YOU HAY NOT HAVE THAT MARY FURS." 

502 PRINT "DO NOT TRY TO CHEAT. I CAN ADD," 

503 PRINT "YOU MUST START AGAIN." 

504 GOTO 15 

508 PRINT 

Stt PRINT “DO YOU WANT TO TRADE FURS NEXT YEAR?" 

513 GOTO 18 

1091 PRINT "YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN " 
1092 PRINT "1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET" 
1093 PRINT "SUPPLIES FOR THE NEXT YEAR. YOU HAVE A CHOICE OF THREE" 
1094 PRINT “FORTS AT WHICH YOU HAY TRADE. THE COST OF SUPPLIES" 
1095 PRINT “AND THE AMOUNT YOU RECEIVE FOR YOUR FURS WILL DEPEND" 
1076 PRINT "DN THE FORT THAT YOU CHOOSE." 

1097 RETURN 

1100 PRINT “00 YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2," 
1102 PRINT "OR FORT 3? FORT 1 IS FORT HOCHELAGA (HONTREAL)" 
1103 PRINT "AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." 
1104 PRINT "FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER THE" 
1105 PRINT "PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST" 
1106 PRINT "НАКЕ А PORTAGE AND CROSS THE LACHINE RAPIDS." 

1108 PRINT "FORT 3 IS FORT NEU YORK AND IS UNDER DUTCH CONTROL." 
1109 PRINT "YOU MUST CROSS THROUGH IROQUOIS LAND." 

1110 PRINT “ANSWER 1, 2, OR 3." 

1111 INPUT B 

1112 IF Bei THEN 1120 


111 
111 
111 
112 
112 
112 
112 
112 
112 
113 
113 
113 
113 
113 
114 
114 
114 
114 


1148 


114 
115 
115 


1155 
1156 
1160 
1169 
1174 
1175 
1176 
1177 
1180 
1181 
1190 
1198 


3 IF D=2 THEN 1135 

S IF В=3 THEN 1147 

6 GOTO 1110 

0 PRINT "YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER, THE FORT" 

1 PRINT "IS FAR FROM ANY SEAPORT. THE VALUE" 

2 PRINT "YOU RECEIVE FOR YOUR FURS WILL BE LOU AND THE COST" 

З PRINT "OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK." 

5 60508 1400 

9 IF BS="YES" THEN 1110 

0 GOTO 1160 

5 PRINT "YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON," 

6 PRINT "HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN" 

7 PRINT "THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE" 
8 PRINT "FOR YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE 
1 60508 1400 


4 IF B$z"YES" THEN 1110 

5 GOTO 1198 

7 PRINT "YOU HAVE CHOSEN THE HOST DIFFICULT ROUTE. АТ" 
PRINT "FORT NEU YORK YOU WILL RECEIVE THE HIGHEST VALUE" 
9 PRINT “FOR YOUR FURS. THE COST OF YOUR SUPPLIES" 

0 PRINT “WILL BE LOWER THAN AT ALL THE OTHER FORTS." 

2 GOSUB 1400 

IF BS="YES" THEN 1110 

GOTO 1250 

LET I=I-160 

PRINT 

LET MI=INT((.2*#RND(1)+.70)£10 2+.5)/10"2 

LET Ef=INT((.2#RND(1)+.65)210"2+,5)/10"2 

LET B12INTCGOSRNDUL)*,25)*1072*.2)/1072 

LET D1=INT((.2*RND(1)+.B0)2*10 2+.5)/10"2 

PRINT "SUPPLIES AT FORT HOCHELAGA COST $150.00" 

PRINT "YOUR TRAVEL EXPENSES TQ HOCHELAGA WERE $10.00" 
GOTO 1410 

LET 151-140 


1201 
1205 
1206 
1207 
1209 
1210 
1212 
1213 
1215 
1216 
1218 
1219 
122 
1221 
1222 
1224 
1225 
122% 
1230 
1231 
1232 
1233 
1235 
1237 
1238 
1239 
1240 
1244 
1246 
1248 
1250 
1254 
1260 
1263 
1270 
1271 
1272 
1273 
1274 
1281 
1282 
1283 
1284 
12?1 
1292 
1293 
1295 
1300 
1301 
1303 
1304 
1306 
130? 
1308 
1309 
1311 
1312 
1320 
1321 
1322 
1400 
1402 
1403 
1404 
1410 
1412 
1414 
1416 
1417 
1418 
1420 
1422 
1425 
1430 
1432 
1434 
1436 
2000 


2046 


PRINT 

LET MI=INT((.3eRND(1)4.85)*10`2+.5)/10'2 

LET ETzZINTCC. TO*RNDOT) 4.80)107 24,5)/1072 
LET BIzINTCC.2*RNDCTIS 90) $10725,5)/1072 

LET P=INT(TO#RND(1)) +1 

IF Р<=2 THEN 1216 

IF P<=6 THEN 1224 

IF P<=8 THEN 1226 


IF P<=10 THEN 1235 

LET F(2)=0 

PRINT “YOUR BEAVER ШЕКЕ Т00 HEAVY TO CARRY ACROSS" 
PRINT "THE PORTAGE. YOU HAD TO LEAVE THE PELTS BUT FOUND" 
PRINT "THEM STOLEN WHEN YOU RETURNED" 

GOSUB 1244 

GOTO 1414 

PRINT “YOU ARRIVED SAFELY AT FORT STADACONA" 

6010 1239 

GOSUB 1430 

PRINT "YOUR CANOE UPSET IN THE LACHINE RAPIDS. you" 


PRINT "LOST ALL YOUR FURS" 

GOSUB 1244 

GOTO 1418 

LET F(4)=0 

PRINT "YOUR FOX PELTS WERE NOT CURED PROPERLY." 
PRINT "NO ONE UILL BUY THEM." 

GOSUB 1244 

GOTO 1410 

PRINT "SUPPLIES AT FORT STADACONA COST $125.00" 
PRINT "YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00" 
RETURN 

LET 151-105 

PRINT 

LET HT2INTCCLISSRNDOL 1.05)810^24.5)/1072 

LET DIz2INTCC.29*RNDCL) 1.10)*10724,5)/1072 

LET PEINTCTOSRNDCL))1 

IF Р<<2 THEN 1281 

IF Р<=6 THEN 1291 

IF Р<=8 THEN 1295 

IF Р<210 THEN 1306 

PRINT "YOU WERE ATTACKED BY А PARTY OF IROQUOIS." 


PRINT "ALL PEDPLE IN YOUR TRADING GROUP WERE" 
PRINT "KILLED. THIS ENDS THE GAME." 

STOP 

PRINT "YOU UERE LUCKY. YOU ARRIVED SAFELY" 
PRINT "AT FORT NEU YORK.” 

GOTO 1311 

GOSUB 1430 


PRINT "YOU NARROWLY ESCAPED AN 18000015 RAIDING PARTY." 

PRINT “HOWEVER, YOU HAD TO LEAVE ALL YOUR FURS BEHIND." 

80SUB 1320 

GOTO 1418 

LET BI=BI/2 

LET Hl=H1/2 

PRINT "YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP." 

PRINT "YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS." 
60808 1320 

GOTO 1410 

PRINT "SUPPLIES AT NEU YORK COST $80.00" 

PRINT "YOUR TRAVEL EXPENSES TO NEU YORK UERE $25.00" 

RETURN 

PRINT "DO YOU WANT TO TRADE AT ANOTHER FORT?" 

PRINT "ANSUER YES OR NO", 

INPUT BS 

RETURN 
PRINT 

PRINT 

PRINT 


"YOUR BEAVER SOLD FOR $";B1*F(2); 
"YOUR FOX SOLD FOR $"sD14F(4) 
PRINT "YOUR ERMINE SOLD FOR $";E1*F(3); 
PRINT "YOUR MINK SOLD FOR $"sHt4F (1) 
LET ІЗІ CL) #B1SF (2) жЕ + (2) 8D DEF (A) 4T 
PRINT 

PRINT "YOU NOU HAVE $";1;" INCLUDING YOUR PREVIOUS SAVINGS" 
GOTO 308 

FOR J=1 TO 4 

LET F(J)=Q 

NEXT J 

RETURN 

DATA "HINK", "BEAVER", "ERMINE", "FOX" 

END 


Golf 


This is a single player golf game. In 
other words it’s you against the golf- 
course (the computer). The program 
asks for your handicap (maximum of 
30) and your area of difficulty. You 
have a full bag of 29 clubs plus a putter. 
On the course you have to contend 
with rough, trees, on and off fairway, 
sand traps, and water hazards. In 
addition, you can hook, slice, go out of 
bounds, or hit too far. On putting, you 
determine the potency factor (or per- 
cent of swing). Until you get the swing 
of the game (no pun intended), you'll 
probably want to use a fairly high 
handicap. 

Steve North of Creative Computing 
modified the original version of this 
game, the author of which is unknown. 


GOLF 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB, 

AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT 
DISTANCE FROM SCENIC DOWNTOWN HORRISTOWN. THE 
COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY. 

ENJOY YOUR GAHE; SEE YOU AT THE 19TH HOLE... 


UHAT IS YOUR HANDICAP? 10 
DIFFICULTIES AT GOLF INCLUDE: 


O=HOOK, 1г511СЕ, 2=POOR DISTANCE, 4=TRAP SHOTS, S=PUTTING 


WHICH ONE (ONLY ONE) IS YOUR WORST? 1 


YOU ARE AT TEE OFF HOLE 1 DISTANCE 361 YARDS, PAR 4 
ON YOUR RIGHT IS ADJACENT FAIRWAY 

ON YOUR LEFT IS ROUGH 

SELECTION OF CLUBS 


YARDAGE DESIRED SUGGESTED CLUBS 


200 Т0 280 YARDS 1104 
100 TO 200 YARDS 19 10 13 
0 Т0 100 YARDS 29 TO 23 


WHAT CLUB DO YOU CHOOSE? 1 


SHOT WENT 237 YARDS. 1175 124 YARDS FRON THE CUP. 
BALL IS 10 YARDS OFF LINE... IN FAIRWAY 
WHAT CLUB DO YOU CHOOSE? 15 


TOO MUCH CLUB. YOU RE PAST THE HOLE. 

SHOT WENT 160 YARDS. 1775 36 YARDS FROH THE CUP. 
BALL IS Q YARDS OFF LINE... IN FAIRWAY 

WHAT CLUB DO YOU CHOOSE? 23 


YOU MAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SUING? 25 
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ON GREEN 15 FEET FRON THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 5 

PASSED BY CUP. 

ON GREEN 13 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 3 

YOU HOLED IT. 


YOUR SCORE ON HOLE 1 WAS 5 
TOTAL PAR FOR 1 HOLES IS 4 YOUR TOTAL IS 5 


YOU ARE AT TEE OFFHOLE 2 DISTANCE 387 YARDS, PAR 4 
ON YOUR RIGHT IS TREES 

ON YOUR LEFT IS TREES 

UHAT CLUB DO YOU CHOOSE? 2 


SHOT WENT 231 YARDS. 1175 158 YARDS FROM THE CUP. 
BALL IS 16 YARDS OFF LINE... IN FAIRWAY 
WHAT CLUB DO YOU CHOOSE? 14 


ON GREEN 18 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TD 13. 
PUTT POTENCY NUMBER? 7 

PASSED BY CUP. 

ON GREEN 17 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 5 

PASSED BY CUP. 

DN GREEN 4 FEET FROM THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER 1 TO 13. 
PUTT POTENCY NUMBER? 2 

PASSED BY CUP, 

ON GREEN 4 FEET FROH THE PIN. 

CHOOSE YOUR PUTT DISTANCE POTENCY NUHBER 1 TO 13. 
PUTT POTENCY NUMBER? 1 

YOU HOLED IT. 


YOUR SCORE ON HOLE 2 WAS 6 
TOTAL PAR FOR 2 HOLES IS 8 YOUR TOTAL IS 11 


YOU ARE AT TEE OFFHOLE 3 DISTANCE 204 YARDS, PAR 3 
ON YOUR RIGHT IS ADJACENT FAIRWAY 

ON YOUR LEFT IS ROUGH 

ИНАТ CLUB DO YOU CHOOSE? 1 


BALL HIT TREE ~ BOUNCED INTO ROUGH 131 YARDS FROM HOLE. 
WHAT CLUB DO YOU CHOOSE? 14 


YOU DUBBED IT. 

SHOT WENT 35 YARDS. IT^S 94 YARDS ЕКОН THE CUP. 
BALL IS 0 YARDS OFF LINE... IN FAIRWAY 

WHAT CLUB DO YOU CHOOSE? 23 


YOU HAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SWING? 75 


TOO MUCH CLUB. YOU’RE PAST THE HOLE. 

SHOT WENT 138 YARDS. ITS 43 YARDS FROM THE CUP. 
BALL IS 9 YARDS OFF LINE... IN FAIRWAY 

UHAT CLUB DO YOU CHÜOSET 24 


YOU MAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 TO 100) 
PERCENT FULL SWING? 30 


P 
P 
P 
P 
P 
P 
P 
P 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
210 
230 
240 
245 
250 
260 
270 
290 
231 
292 
293 
294 
395 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
310 
315 


314 PRINT 


PRINT TAB(34); "GOLF" 320 IF 81:0 THEN 1590 


RINT ТАВ(15) ; "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 330 IF L(0)<1 THEN 1150 

RINT:PRINT:PRINT 340 X«0 

RINT “WELCOME TO THE CREATIVE COMPUTING COUNTRY CLUB," 330 IF L(0)>5 THEN 1190 

RINT "АН EIGHTEEN HOLE CHAMPIONSHIP LAYOUT, LOCATED A SHORT" 360 PRINT “SHOT WENT";DI;"YARDG.  IT/8";D2;"YARDS FROM THE CUP." 
RINT "DISTANCE FROM SCENIC DOUNTOUN HORRISTOUN. THE" 362 PRINT “BALL IS";INT(O);"YARDS OFF LINE... IN "; 

RINT “COMMENTATOR WILL EXPLAIN THE GAME AS YOU PLAY." 380 GOSUB 400 

RINT "ENJOY YOUR GAME; SEE YOU AT THE 19TH HOLE..." 390 6070 820 

RINTSPRINTs DIM 1110) 400 IF L(X)*1 THER 480 

61318 410 IF L(X)-2 THEN 500 


Е=1 
PRINT "WHAT IS YOUR HANDICAP"; 
INPUT H 
IF H»30 THEN 470 
IF Н<0 THEN 470 
PRINT "DIFFICULTIES AT GOLF INCLUDE:" 
PRINT "OzHDOK, t=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS, S=PUTTING" 
PRINT “WHICH ONE (ONLY ONE) IS YOUR WORST"; 
INPUT T 
IF T>5 THEN 120 
8150 
КЕН 
L(0)=0 
Јад 
0-0 
824521 
K=0 
IF F=1 THEN 310 
PRINT “YOUR SCORE GN HOLE";F-1;"UAS";S1 
GOTO 1750 
IF 51›Р+2 THEN 297 
IF 51=Р THEN 299 
IF StzP-1 THER 301 
IF 51=Р-2 THEN 303 
GOTO 310 
PRINT “KEEP YOUR HEAD DOUN.” 
GOTO 310 
PRINT "A PAR. NICE GOING." 
бото 310 
PRINT “A BIRDIE." 
GOTO 310 
IF P=3 THEN 306 
PRINT "A GREAT BIG EAGLE." 
8070 310 
PRINT "А HOLE IN ONE." 
IF Р=19 THEN 1710 
81-0 


72 


420 IF L(X)=3 THEN 520 

430 IF L(X)74 THEN 540 

440 IF L(X)=3 THEN 560 

450 IF L(X)-6 THEN 580 

460 PRINT "OUT OF BOUNDS" 
485 GOTO 1490 

470 PRINT “PGA RULES HANDICAP = 0 TO 30" 
472 GOTO 80 

480 PRINT "FAIRWAY" 

490 GOTO 1690 

500 PRINT "ROUGH" 

510 GOTO 1490 

520 PRINT “TREES" 

$30 GOTO 1490 

$40 PRINT “ADJACENT FAIRUAY" 
550 GOTO 1690 

560 PRINT "TRAP" 

570 GOTO 1690 

880 PRINT "WATER" 

590 GOTO 1690 

620 IF А=1 THEN 629 

621 PRINT “SELECTION OF CLUBS" 


622 PRINT "YARDAGE DESIRED SUGGESTED CLUBS" 
623 PRINT "200 TO 280 YARDS 1 76 4" 

624 PRINT "100 TO 200 YARDS 19 TO 13" 
625 PRINT " 0 TO 100 YARDS 29 то 23" 
826 Ast 

629 PRINT "WHAT CLUB DO YOU CHOOSE"; 

630 INPUT C 

632 PRINT 


635 IF C«1 THEN 590 

637 IF C229 THEN 690 

640 IF C>4 THEN 710 

650 IF L(0)<=5 THEN 740 

660 IF С=14 THEN 740 

665 IF C=23 THEN 740 

670 GOTO 890 

680 51=81-1 

690 PRINT "THAT CLUB IS WOT IN THE BAG." 
493 PRINT 

700 GOTO 620 

210 IF CX12 THEN 690 

220 С=С-6 

230 GOTO 550 

740 8158141 

241 et 

742 IF C213 THEN 940 

746 IF INT(F/3)7F/3 THEN 952 

252 IF C<4 THEN 756 

254 GOTO 760 

756 IF L(0)72 THEN 842 

760 IF 5127 THEN 847 

270 DI=INT(((30-H)w2.5+187-((30-H)*.25+15)3*C/2)+25*RND(1)) 
280 D1sINT(DTe4) 

800 IF T=2 THEN 1170 

830 G=(RND(1)/.8)#(24H+16)*ABS(TAN(D1#.0035)) 
840 D2-INT(SQR(0^2*ABS(D-D1)72)) 

850 IF 0-01<0 THEN 870 

860 GOTO 890 

862 PRINT “YOU DUBBED IT." 

864 DI=35 — 

866 GOTO 830 

867 IF DX200 THEN 1300 

868 GOTO 770 

870 IF D2¢20 THEN 890 

880 PRINT “TOO MUCH CLUB. YOU'RE PAST THE HOLE." 
890 B=D 

900 D=D2 

910 IF D2>27 THEN 1020 

920 IF 02920 THEN 1100 

930 IF D2>.5 THEN 1120 

940 L(0)=9 

950 GOTO 1470 

952 IF S2+0Q+(10%(F-1)/18)<(F-1)%(72+((H+1)/,05))/18 THEN 956 
954 GOTO 752 

956 0=0+1 

957 IF 81/2O INT(81/2) THEN 1011 

958 GOTO 842 

960 PRINT “YOU HAY NOW GAUGE YOUR DISTANCE BY PERCENT (1 Т0 100)" 
961 PRINT "PERCENT FULL SUING"; 

970 INPUT U: U-U/100 

972 PRINT 

980 IF o! THEN 680 

985 IF L(0)s5 THEN 1280 

990 IF C214 THEN 740 

1000 С=С-10 

1010 GOTO 760 

1011 IF D<95 THEN 882 

1012 PRINT "BALL HIT TREE - BOUNCED INTO ROUGH";D-75;"YARDS FROM HOLE." 
1014 D=D-75 

1018 GOTO 620 
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1020 IF 0520 THEN 1150 

1022 IF J>0 THEN 1150 

1030 IF T20 THEN 1070 

1035 89-(8241)/15 

1036 IF INT(S9)=S9 THEN 1075 

1040 PRINT "YOU HOOKED- "; 

1050 L(0)=L(2) 

1055 IF 0245 THEN 1092 

1060 GOTO 320 

1070 892(8241)/15 

1071 IF INT(S9)=S9 THEN 1040 

1075 PRINT "YOU SLICED- "; 

1080 L(0)=L(1) 

1090 GOTO 1055 

1092 PRINT "BADLY." 

1094 GOTO 320 

1100 L(0)=5 

1110 GOTO 320 

1120 L(0)-8 

1130 D2-INT(D2«3) 

1140 GOTO 1380 

1150 L(0)=1 

1160 8070 320 

1170 DI=INT(.85¢D1) 

1180 GOTO 830 

1190 IF 110926 THEN 1260 

1200 PRINT "YOUR SHOT WENT INTO WATER." 
1210 51=514+1 

1220 PRINT "PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION." 
1230 ізін 

1240 1(0)=1 

1242 D=B 

1250 GOTO 620 

1260 PRINT "YOUR SHOT WENT OUT OF BOUNDS." 
1270 GOTO 1210 

1280 IF T=3 THEN 1320 

1300 D2=1+(3*INT((80/(40-H))*RND(1))) 
1310 GOTO 1380 

1320 IF RNDCL)ON THEN 1360 

1330 N-Ns.2 

1340 PRINT “SHOT DUBBED, STILL IN TRAP." 
1350 GOTO 620 

1360 N-.8 

1370 GOTO 1300 

1380 PRINT "DN GREEN";D2;"FEET FROM THE PIN." 
1381 PRINT “CHOOSE YOUR PUTT DISTANCE POTENCY NUMBER ! TO 13." 
1382 PRINT “PUTT POTENCY NUMBER”; 
1400 INPUT I 

1410 8158141 

1420 IF S1+1-P>(H*.072)+2 THEN 1470 
1425 IF K>2 THEN 1470 

1428 K=K+1 

1430 IF T=4 THEN 1530 

1440 D2202- E  AT23RNDCL 41,5 

1450 IF D2<-2 THEN 1560 

1460 IF 0252 THEN 1500 

1470 PRINT “YOU HOLED IT." 

1472 PRINT 

1480 F=F+1 

1490 GOTO 230 

1500 PRINT "PUTT SHÜRT." 

1505 D2-INT(D2) 

1510 GOTO 1380 
1530°02=02-1%(4+1%КИ 1) )+1 

1550 GOTO 1450 

1560 PRINT "PASSED BY CUP." 

1520 12--12 

1580 GOTO 1505 

1590 READ D,P,LCO ,LC2) 

1595 PRINT 

1600 PRINT “YOU ARE AT TEE OFFHOÜLE";F;"DISTANCE";D;"YARDS, PAR'";P 
1605 63=63+Р 

1620 PRINT “ON YOUR RIGHT IS "; 

1830 X=1 

1640 GÜSUB 400 

1650 PRINT "ON YOUR LEFT IS "; 

1660 X=2 

1870 GOSUB 400 

1480 GÜTO 620 

1690 RETURN 


1700 DATA 361,4,4,2,382,4,3,3,206,3,4,2,500,9,7,2 
1702 DATA 408,4,2,4,357,4,6,4,424,4,4,2, 388,4, 4,4 
1704 DATA 196,3,7,2,400,4,7,2,560,3,7,2,132,3,2,2 
1706 DATA 357,4,4,4,294,4,2,4,425,5,2,2,375,4,4,2 
1708 DATA 180,3,6,2,550,5,6,4 


1710 PRINT 

1750 62=02+51 

1760 PRINT “TOTAL PAR FOR";F-T;"HOLEG 15" 633" YOUR TOTAL IS";62 
1761 IF GisF-i THEN 1770 

1765 GOTO 292 

1770 END 


GOMOKO or GOMOKU is a 
traditional game of the Orient. It is 
played by two people on a board of 
intersecting lines (19 left-to-right lines, 
19 top-to-bottom lines, 361 intersec- 
tions in all). Players take turns. During 
his turn, a player may cover one 
intersection with a marker; (one player 
uses white markers; the other player 
uses black markers). The object of the 
game is to get five adjacent markers in 
a row, horizontally, vertically or along 
either diagonal. 

Unfortunately, this program does not 
make the computer a very good player. 
It does not know when you are about to 
win or even who has won. But some of 
its moves may surprise you. 

The original author of this program is 
Peter Sessions of People’s Computer 
Company. 


GONOKO 
CREATIVE COHPUTING MORRISTOWN, NEU JERSEY 


WELCOME TO THE ORIENTAL GAME OF GOHOKO. 


THE GANE IS PLAYED ON AN N BY N GRID OF A SIZE 

THAT YOU SPECIFY. DURING YOUR PLAY, YOU MAY COVER ORE GRID 
INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET 
5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR 
DIAGONALLY. ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED 
ШІН A ^i^ AND THE COMPUTER MOVES WITH A 222, 


THE COMPUTER DOES NOT KEEP TRACK OF UHO HAS UON. 
TO END THE GAME, TYPE -1,-1 FOR YOUR MOVE. 


WHAT 18 YOUR BOARD SIZE (HIN 2/ НАХ 19)? 10 


WE ALTERNATE MOVES. YOU GO FIRST... 


YOUR PLAY (1,J)? 4,3 YOUR PLAY (1,J)? 3,3 
00009000000 0000202920000 
00020000000 06000000000 
9002000200020 001020002000 
00100000900 06 01 1000000 
002000009000 0022 100000 
00900000000 0000020000 
900000020000 90000200000 
9000000000 6000000020 
0002020000020 0000000000 
080090000000 900900000000 

YOUR PLAY (I,J)? 4,4 YOUR PLAY (I,J)? 2,2 
9002020200000 0000202000200 
0002020000020 9100000000 
00020000000 02100900000 
001131000000 001710000200 
0022000000 00221002090 
000600000200 0000020000 
0000000000 00002000000 
00000009000 0000200200230 
0000202020000 90000900009 
0600002020000 00000900000 


YüUR 
ILLE 
YOUR 


о о о Фо о о © о о Ф 


2 Р 
AP 
é P 
8D 
10 

20 

30 

40 

50 

6% 

70 

80 

90 

110 
115 
116 
117 
120 
210 
300 
310 
320 
330 
340 
410 
420 
440 
$00 
$10 
540 
570 
380 
590 
600 
610 
650 
660 
710 
730 


PLAY (1,007 5, YOUR PLAY (I,J)? 1,1 

GAL MOVE. TRY AGAIN... 100020200000 
PLAY (I,J)? 5,5 2100000000 
000000000 9210000000 
000000000 001 1000000 
0060000000 0022100000 
01 1000900 0 000002000020 
022 100000 00000900000 
000020000 00000090230 
000000000 0000000000 
000000000 0902090000000 
000000000 

0900000000 YOUR PLAY (1,4)? -1,-1 


THANKS FOR THE GAME!! 
PLAY AGAIN (1 FOR YES, 0 FOR NO)? 0 


RINT TAB(33) ; "GOHOKO" 
RINT TAB(TS);"CREATIVE COMPUTING NORRISTOUN, NEW JERSEY" 
RINT:PRINT:PRINT 
ІН А(19,19) 
PRINT “WELCOME TO THE ORIENTAL GAME OF GOMOKO." 
PRINT: PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE" 
PRINT “THAT YOU SPECIFY. DURING YOUR PLAY, YOU HAY COVER ONE GRID" 
PRINT “INTERSECTION WITH A MARKER. THE OBJECT OF THE GANE IS TO GET" 
PRINT “5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR" 
PRINT “DIAGONALLY. ON THE BOARD DIAGRAM, YOUR MOVES ARE MARKED" 
PRINT “WITH A ^1^ AND THE COMPUTER MOVES WITH A 227," 
PRINT: PRINT "THE COMPUTER DOES NOT KEEP TRACK OF WHO HAS WON.” 
PRINT "TO END THE GANE, TYPE -1,-1 FOR YOUR HOVE.": PRINT 

PRINT “WHAT IS YOUR BOARD SIZE (MIN 7/ HAX 19)";: INPUT N 

IF N>6 THEN 117 

БОТО 120 

IF N<20 THEN 210 

PRINT "I SAID, THE HINIMUM IS 7, THE HAXIMUM IS 19.": GOTO 110 

FÜR 151 TO N:FOR J=1 TO Н: A(X,Y)s0: НЕХТ J: NEXT I 

PRINT: PRINT “WE ALTERNATE MOVES. YOU GO FIRST...": PRINT 

PRINT “YOUR PLAY (I,J)";: INPUT I,J 

IF 19-1 THEN 980 

Хар: YsJ: GOSUB 910: IF L=1 THEN 410 

PRINT "ILLEGAL HOVE. TRY AGAIN...": GOTO 310 

IF ACI,J)=0 THEN 440 
PRINT "SQUARE OCCUPIED. 

ACI, 451 

REM жэ» COMPUTER TRIES AN INTELLIGENT HOVE ss» 

FOR Е=-1 TÜ t: FOR F=-1 TO 1: IF E+F-E*F=0 THEN 590 

XeI*F: YeJ+Fs GOSUB 910 

IF L=0 THEN 590 

IF A(K,Y)=1 THEN 710 

НЕХТ Е: NEXT E 

ВЕН +s+ COMPUTER TRIES А RANDON NOVE +++ 

X=INT(N*RND(1)+1): Y=INT(N*RND(1)+1): GOSUB 910: IF L=0 THEN 410 

IF A(X Y) O0. THEN 610 

AU, Y)s2: DOSUB 810: BOTO 310 

XsI-E: YsJ-F: 80508 910 

IF L=0 THEN 410 


TRY AGAIN,.."s GOTO 310 


740 GOTO 650 

800 КЕН +++ PRINT THE BOARD жєжє 

810 FOR Is1 TO N: FOR J=1 ТО N: PRINT А(1, 3); 
840 NEXT Js PRINT: NEXT 1: PRINT: RETURN 
910 Lets IF ХІ THEN 970 

920 IF ХОН THEN 970 

930 IF Y<1 THEN 970 

940 IF YON THEN 970 

950 RETURN 

970 L=0: RETURN 

980 PRINT: PRINT "THANKS FOR THE GAHE!!" 


985 PRINT “PLAY AGAIN (1 FOR YES, 0 FOR NO)";; 


INPUT Q 


990 IF 0=1 THEN 110 
9?9 END 
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In Program GUESS, the computer 
chooses a random integer between 0 
and any limit you set. You mustthen try 
to guess the number the computer has 
chosen using the clues provided by the 
computer. 

You should be able to guess the 
number in one less than the number of 
digits needed to represent the number 
in binary notation — i.e., in base2. This 
ought to give you a clue as to the 
optimum search technique. 

GUESS converted from the original 
program in FOCAL which appeared in 
the book "Computers in the 
Classroom" by Walt Koetke of Lex- 
ington High School, Lexington, 
Massachusetts. 


PRINT TAB(33) "GUESS" 


PRINT:PRINT:PRINT 

PRINT "THIS IS A NUMBER GUESSING GAME, ILL THINK" 
PRINT "OF A NUMBER BETUEEN 1 AND ANY LIMIT YOU WANT.” 
PRINT "THEN YOU HAVE TO GUESS WHAT IT IS." 
PRINT 
PRINT "UHAT LIMIT DO YOU WANT"; 

INPUT L 

PRINT 

LI=INT(LOG(L)/LOG(2)) 81 

12 PRINT "I'M THINKING OF A NUMBER BETWEEN 1 AND "у. 
13 851 

14 PRINT "NOU YOU TRY TO GUESS UHAT IT IS." 

19 M=INT(L*RND(1)+1) 
20 INPUT N 
21 IF N20 THEN 25 
22 GOSUB 70 
23 GOTO t 
25 IF МеН THEN 50 
30 Gzü*l 
31 IF NOW THEN 40 
32 PRINT “TOO LOW. TRY A BIGGER ANSWER.“ 
33 GOTO 20 

40 PRINT "TOO HIGH. TRY A SMALLER ANSWER," 

42 GOTO 20 
$0 PRINT "THAT^S IT! YOU GOT IT IN";G; "TRIES." 
52 IF 8XL1 THEN 58 

54 IF G=L1 THEN 60 

96 PRINT "YOU SHOULD HAVE BEEN ABLE TO GET IT IN QNLY";LI 
57 GOTO 65 

58 PRINT “VERY "; 

60 PRINT "8000,4 

65 GOSUB 70 

466 GOTO 12 

70 FOR Н=1 TO Š 

21 PRINT 

72 NEXT H 

73 RETURN 

99 END 


10 CO) ^J O- Ch аса FQ — 


= 
— © 


PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
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GUESS 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


THIS IS A NUMBER GUESSING GANE.  I'LL THINK 
BF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT. 
THEN YOU HAVE TO GUESS WHAT IT IS. 


WHAT LIMIT DO YOU WANT? 200 


I'H THINKING OF A NUMBER BETWEEN 1 AND 200 
NOW YOU TRY TO GUESS WHAT IT IS. 


7 100 

TOO LOU. TRY A BIGGER ANSWER. 

1 150 

TOO HIGH. TRY А SHALLER ANSWER. 
7 123 

TOO HIGH. TRY А SHALLER ANSWER. 
T 112 

TOQ LOU. TRY A BIGGER ANSUER. 

? 118 

TOO LOU. TRY A BIGGER ANSWER. 

% 123 

THAT’S IT! YOU GOT IT IN é TRIES. 
VERY 6000. 


178 THINKING OF A NUMBER BETWEEN 1 AND 200 
NOU YOU TRY TO GUESS WHAT IT IS. 


7 100 

709 HIGH. TRY à SMALLER ANSWER, 
Too HIGH. TRY A SMALLER ANSWER. 
КҮТ TRY A SMALLER ANSUER. 
тоо HIGH. TRY A SMALLER ANSUER. 
Toà HIGH. TRY А SMALLER ANSWER. 
тй Lou. TRY A BIGGER ANSUER. 
00 Lou. TRY A BIGGER ANSUER. 
100 LOU. TRY A BIGGER ANSWER. 
100 Lou. TRY A BIGGER ANSUER. 
00 Lou. TRY A BIGGER ANSWER, 
Too Lo. TRY A BIGGER ANSWER. 
то wot. TRY A SMALLER ANSWER. 


THAT^S IT! YOU GOT IT IN 13 TRIES. 
YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY 8 


* 
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Gunner 


GUNNER allows you to adjust the 
fire of a field artillery weapon to hit a 
stationary target. You specify the 
number of degrees of elevation of your 
weapon; 45 degrees provides max- 
imum range with values under or over 
45 degrees providing less range. 

You get up to five shots to destroy the 
enemy before he destroys you. Gun 
range varies between 20,000 and 
60,000 yards and burst radius is 100 
yards. You must specify elevation 
within approximately 0.2 degrees to get 
a hit. 

Tom Kloos of the Oregon Museum of 
Science and Industry in Portland, 
Oregon originally wrote GUNNER. 
Extensive modifications were added by 
David Ahl. 


10 PRINT TAB(30); "GUNNER" 

20 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

30 PRINTSPRINTSPRINT 

130 PRINT "YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN" 


140 PRINT "CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE" 
150 PRINT "WILL PLACE A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS" 


180 PRINT “OF THE TARGET WILL DESTROY IT." : PRINT 
170 R=INT(40000*RND(1)+20000) 

180 PRINT “MAXIMUM RANGE OF YOUR GUN IS ";R;" YARDS." 
185 1:0 

190 PRINT 

195 8150 

200 T-INT(R&C. EE. 8#RND(1))) 

210 5:0 

220 GOTO 370 

230 PRINT “MINIMUM ELEVATION IS ONE DEGREE." 

240 GOTO 390 

250 PRINT "HAXIMUM ELEVATION IS 89 DEGREES." 

260 GOTO 390 

270 PRINT "OVER TARGET BY"; ABS(E);"YARDS." 

280 GOTO 390 

290 PRINT "SHORT GF TARGET BY"ABS(E);"YARDS." 

300 GOTO 390 


320 PRINT “see TARGET DESTROYED +*+  ";S;"ROUNDS OF AMMUNITION EXPENDED 


325 51=51+5 

330 IF 7-4 THEN 490 

340 Z=Z+1 

345 PRINT 

350 PRINT "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..." 
460 GOTO 200 
370 PRINT " 
380 PRINT 
390 PRINT 
400 INPUT "ELEVATION";B 

420 IF B>89 THEN 250 

430 IF B<1 THEN 230 

440 8:841 

442 IF S46 THEN 450 

444 PRINTSPRINT “BOOM !!!! YOU HAVE JUST BEEN DESTROYED "; 
445 PRINT "BY THE ENEHY." : PRINT : PRINT : PRINT : GOTO 495 
450 B2-2*8/37.3 : I=R*SIN(B2) : XzT-I : E=INT(X) 

460 IF ABS(E)<100 THEN 320 

470 IF Е>100 THEN 290 

480 GOTO 270 

490 PRINT : PRINT : PRINT "TOTAL ROUNDS EXPENDED UERE:";S! 

492 IF 61718 THEN 495 

493 PRINT "NICE SHOOTING !!" : GOTO 500 

495 PRINT "BETTER GO BACK TO FORT SILL FOR REFRESHER TRAINING!" 
500 PRINT : INPUT "TRY AGAIN (Y OR М) "52$ 

$10 IF Z$="¥" THEN 170 

520 PRINT "OK. RETURN TO BASE CAMP." 

999 END 


DISTANCE TO THE TARGET IS"T;"YARDS," 


GUNNER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


YOU ARE THE OFFICER-IN-CHARGE, GIVING ORDERS TO A GUN 
CREW, TELLING THEM THE DEGREES OF ELEVATION YOU ESTIMATE 
UILL PLACE A PROJECTILE ON TARGET. A HIT WITHIN 100 YARDS 
OF THE TARGET WILL DESTROY IT. 


MAXIMUM RANGE OF YOUR GUN IS 55684 YARDS. 
DISTANCE TO THE TARGET IS 15755 YARDS. 

ELEVATION? 9 

GVER TARGET BY 1452 YARDS. 


ELEVATION? 8 
SHORT OF TARGET BY 407 YARDS. 


ELEVATION? 8.2 
жеж TARGET DESTROYED *** З ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 11349 YARDS. 

ELEVATIDN? 84 

OVER TARGET BY 241 YARDS. 


ELEVATION? 84.1 
жеж TARGET DESTROYED +++ 2 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 19146 YARDS. 

ELEVATION? 11 

OVER TARGET BY 1713 YARDS. 


ELEVATION? 10 
SHORT OF TARGET BY 102 YARDS. 


ELEVATION? 10.06 
*** TARGET DESTROYED +++ 3 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 10792 YARDS. 

ELEVATION? 84.3 

OVER TARGET BY 227 YARDS. 


ELEVATION? 84.4 
жек TARGET DESTROYED +++ — 2 ROUNDS OF AMMUNITION EXPENDED 


THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY... 
DISTANCE TO THE TARGET IS 36976 YARDS. 

ELEVATION? 21 

OVER TARGET BY 282 YARDS, 

ELEVATION? 20.8 

*** TARGET DESTROYED +++ 2 ROUNDS OF AMMUNITION EXPENDED 

TOTAL ROUNDS EXPENDED WERE: 12 

NICE SHOOTING |! 


TRY AGAIN (Y OR N)? N 
QK. RETURN TO BASE CAMP. 


Hammurabi 


In this game you direct the ad- 
ministrator of Sumeria, Hammurabi, 
how to manage the city. The city 
initially has 1,000 acres, 100 people and 
3,000 bushels of grain in storage. 

You may buy and sell land with your 
neighboring city-states for bushels of 
grain — the price will vary between 17 
and 26 bushels per acre. You also must 
use grain to feed your people and as 
seed to plant the next year's crop. 

You will quickly find that a certain 
number of people can only tend a 
certain amount of land and that people 
starve if they are not fed enough. You 
also have the unexpected to contend 
with such as a plague, rats destroying 
stored grain, and variable harvests. 

You will also find that managing just 
the few resources in this game is nota 
trivial job over a period of say ten years. 
Thecrisis of population density rears its 
head very rapidly. 

This program was originally written 
in Focal at DEC; author unknown. 
David Ahl converted it to BASIC and 
added the  10-year performance 
accessment. If you wish to change any 
of the factors, the extensive remarks in 
the program should make modification 
fairly straightforward. 

Note for trivia buffs: somewhere 
along the line an m was dropped out of 
the spelling of Hammurabi in the Ahl 
version of the computer program. This 
error has spread far and wide until a 
generation of students who have used 
this program now think that Ham- 
murabi is the incorrect spelling. 


HAHURABI 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA 
FOR 8 TEN-YEAR TERH OF OFFICE. 


НАНОКАВІ: I BEG TO REPORT TO YOU, 


IN YEAR 1 , 0 PEOPLE STARVED, 5 CANE TO THE CITY, 


POPULATION IS NOU 100 

THE CITY NOW OWNS 1000 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 
RATS ATE 200 BUSHELS. 

YOU NOU HAVE 2800 BUSHELS IN STORE. 


LAND IS TRADING AT 24 BUSHELS PER ACRE. 
HOU HANY ACRES DO YOU WISH TO BUY? 10 
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HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 2000 


HOW HANY ACRES DO YOU WISH TO PLANT WITH SEED? 990 


HAHURABI: I BEG TO REPORT TO YOU, 

IN YEAR 2, 0 PEOPLE STARVED, 5 CAME TO THE CITY, 
POPULATION IS NOW 105 

THE CITY NOU OWNS 1010 ACRES. 

YOU HARVESTED 3 BUSHELS PER ACRE. 

RATS ATE 16 BUSHELS. 

YOU NOW HAVE 3019 BUSHELS IN STORE. 


LAND IS TRADING АТ 21 BUSHELS PER ACRE. 
HOW MANY ACRES DO YOU WISH TO BUY? 25 


HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 2000 


HOU HANY ACRES DO YOU WISH TO PLANT WITH SEED? 1000 
HAHURABI: THINK AGAIN. YOU HAVE ONLY 

494 BUSHELS OF GRAIN. NOW THEN, 
HOW HANY ACRES DO YOU WISH TO PLANT WITH SEED? 500 


HAHURABI: I BEG ТО REPORT TO YOU, 

IN YEAR 3, 5 PEOPLE STARVED, 5 САМЕ TO THE CITY, 
A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED. 
POPULATION IS NOU 52 

THE CITY NOU OUNS 1035 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE 0 BUSHELS. 

YOU NOW HAVE 744 BUSHELS IN STORE. 


LAND IS TRADING AT 17 BUSHELS PER ACRE. 
HOU HANY ACRES DO YOU WISH TO BUY? 0 
HOW HANY ACRES DO YOU WISH TO SELL? 25 


HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 1000 


HOU HANY ACRES DO YOU WISH TO PLANT WITH SEED? 500 
HAHURABI: THINK AGAIN. YOU HAVE ONLY 

169 BUSHELS OF GRAIN. NOW THEN, 
HOW KANY ACRES DO YOU WISH TO PLANT WITH SEED? 300 


HAMURABI: I BEG TO REPORT TO YOU, 

ІН YEAR 4, 2 PEOPLE STARVED, 12 CAME TO THE CITY, 
POPULATION IS NOU 62 

THE CITY NOU OWNS 1010 ACRES. 

YOU HARVESTED 1 BUSHELS PER ACRE. 

RATS ATE 0 BUSHELS. 

YOU NOM HAVE 319 BUSHELS IN STORE. 


LAND IS TRADING AT 23 BUSHELS PER ACRE. 

HOW HANY ACRES DO YOU WISH TO BUY? O 

HOW HANY ACRES DO YOU WISH TO SELL? 500 

HOW HANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE? 500 
HOW HANY ACRES DO YOU WISH TO PLANT WITH SEED? 230 
YOU STARVED 37 PEOPLE IN ONE YEAR!!! 

DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY 
BEEN IMPEACHED AND THROWN QUT OF OFFICE BUT YOU HAVE 
ALSO BEEN DECLARED NATIONAL FINK!I!!! 


50 LONG FOR NOW. 


F 
и ТЕЎ 
| 


10 PRINT TAB(I2) j"HAHURABI" 
20 PRINT TAB(IS) "CREATIVE COMPUTING  HORRISTOUN, NEW JERSEY" 
30 PRINTsPRINT: PRINT 


80 PRINT “TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 

90 PRINT "FÜR А TEN-YEAR TERM OF OFFICE.":PRINT 

95 01=0: P1=0 

100 2-0: Р=95:5=2800: Н=3000: EsH-S 

110 Ys3: й-Н/Ү: 1-5: 01 

210 D=0 

215 PRINT;PRINT:PRINT "HAHURABI: I BEG TO REPORT TO YOU,": Z=Z+1 
217 PRINT "IN YEAR";2;",";D; PEOPLE STARUED,";I;"CAME TO THE CITY," 
218 P=P+I 

227 IF 070 THEN 230 

228 P=INT(P/2) 

229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED." 

230 PRINT “POPULATION IS NOU";P 

232 PRINT "THE CITY NOW OUNS";A;"ACRES." 

235 PRINT "YOU HARVESTED"; Y; "BUSHELS PER ACRE." 

250 PRINT "RATS ATE";E;"BUSHELS. " 

260 PRINT “YOU NOU HAVE";S;"BUSHELS IN STÜRE.": PRINT 

270 IF 1=11 THEN 860 

310 C=INT(10*RND(1)): Ү=Е+17 


312 
320 
321 
322 
321 
324 
330 
331 
334 
340 
341 
342 
343 
344 
350 
400 
419 
“1 
412 
418 
420 
421 
422 
410 
A40 
441 
442 
44 
445 
A46 
447 
449 
450 
452 
453 
454 
455 


PRINT "LAND IS TRADING AT";Y;"BUSHELS PER ACRE.” 
PRINT “HOW HANY ACRES DO YOU UISH TO BUY"; 

INPUT 0: IF 0<0 THEN 850 

IF Ү+0<=5 THEN 330 

GOSUB 710 

GOTO 320 

IF Q=0 THEN 340 

AsRtü: Ss8-Y*ü: C=0 

GOTO 400 

PRINT “HOW HANY ACRES DO YOU WISH TO SELL"; 
INPUT 0: IF 0<0 THEN 850 

IF QCA THEN 350 

GOSUB 720 

GOTO 340 

A=A-Q: S=S+Y*Q; C=0 

PRINT 

PRINT “HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE"; 
INPUT ü 

IF 0<0 THEN 850 М 

КЕН *** TRYING TO USE MORE GRAIN THAN IS IN SILOS? 
IF 0<=5 THEN 430 

GOSUB 710 

GOTO 410 

5=5-0: Сей: PRINT 

PRINT "HOU MANY ACRES DO YOU WISH TO PLANT WITH SEED"; 
INPUT D: IF D=0 THEN 511 

IF D<O THEN 850 

КЕН жез TRYING TO PLANT MORE ACRES THAN YOU OUN? 
IF 0<=А THEN 450 

GOSUB 720 

GOTO 440 

REH *** ENOUGH GRAIN FOR SEED? 

IF INT(D/2)4-8 THEN 455 

GOSUB 710 

GOTO 440 

REM +++ ENOUGH PEOPLE TO TEND THE CROPS? 

IF D<10*P THEN 510 
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460 
470 
910 
511 
512 
515 
521 
522 
523 
525 
530 
331 
832 
533 
539 
540 
341 
342 
850 
851 
332 


333. 


555 
560 

565 
566 

56? 

210 
711 

712 
720 

730 

800 
801 

850 
855 
857 
850 
842 
845 
870 
875 
880 
885 
870 
892 
895 
896 
900 
905 
940 
945 
950 
940 
985 
970 
975 
990 
995 
999 


PRINT "BUT YOU HAVE QNLY";P;"PEOPLE TO TEND THE FIELDS! 
GüTO 440 

$:8- INT(D/2) 

GOSUB 800 

КЕН +s+ A BOUNTIFUL HARVEST! 

YeC: НееҮ: Е=0 

80508 800 

IF INT(C/2) OC/2 THEN 530 

КЕН ### RATS ARE RUNNING WILD!! 
EzINTUS/C) 

§=S-E+H 

GOSUB 800 

REH тез LET“S HAVE SOME BABIES 
THINT(Ce(20eA+S)/P/100+1) 

КЕН езе HOW HANY PEOPLE HAD FULL TUNNIES? 
E=INT(0/20) 

REH *** HORROR, A 15% CHANCE OF PLAGUE 
G=INT(10#(2#RND(1)~.35)) 

IF РСС THEN 210 

КЕН *** STARVE ENOUGH FOR IMPEACHMENT? 
D=P~C: IF 0>.45+Р THEN 560 

РІз( (1-10 eP T 4De100/P)/Z 

Реб: 01=01+0: GOTO 215 

PRINT: PRINT "YOU STARVED"; D; "PEOPLE IN ONE YEAR!!!" 


NOU THEN," 


PRINT "DUE ТО THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 
PRINT "BEEN IHPEACHED AND THROWN QUT OF OFFICE BUT YOU HAVE" 
PRINT “ALSO BEEN DECLARED NATIONAL FINK!!i)!"; GOTO 770 

PRINT "HANURABI: THINK AGAIN. YOU HAVE ONLY" 

PRINT S;"BUSHELS OF GRAIN. NOU THEN," 

RETURN 

PRINT "HAHURABI: THINK AGAIN. YOU OWN ONLY";A;"ACRES. NOW THEN," 
RETURN 

E=INT(RND(I)e5)+1 

RETURN 

PRINT: PRINT “HAMURABI: 1 CANNOT DO WHAT YOU WISH." 


PRINT "GET YOURSELF ANOTHER STEWARD! Hi 1!" 

6070 990 

PRINT "IN YOUR 10-YEAR TERM OF OFFICE," 3Pi;"PERCENT OF THE" 

PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF" 
PRINT DI;"PEOPLE НЕНІ L=a/P 

PRINT "YOU STARTED UITH 10 ACRES PER PERSON AND ENDED UITH" 

PRINT L;"ACRES PER PERSQN.": PRINT 

IF P1233 THEN 545 

IF L<? THEN 565 

IF P1210 THEN 940 

IF L<? THEN 940 

IF IF P1523 THEN 960 

IF L«tQ THEN 960 

PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMAGNE, DISRAELI, AND" 
PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!":GOTO 990 
PRINT "YOUR HEAVY-HANDED PERFORMANCE SHACKS OF NERO AND IVAN IU." 
PRINT “THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,” 
PRINT “FRANKLY, HATE YOUR GUTSII":GÜTO 990 

PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT" 
PRINT “REALLY UASN T TOO BAD AT ALL. ";INT(P.ETRNDCT) 2; "PEOPLE" 
PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT UE ALL HAVE OUR" 
PRINT "TRIVIAL PROBLEHS." 

PRINT: FOR Не? TO 10: PRINT CHR$(7);: NEXT N 

PRINT "SO LONG FOR NOM,": PRINT 

END 


This is a simulation of the word 20 PRINT TAB(1S) "CREATIVE COMPUTING : 
guessing game, hangman. The com- 25 PRINT:PRINTIPRINT UTING MORRISTOWN, NEW JERSEY 
puter picks a word, tells you how many 30 DIM P8(12,12),L$(20),D$(20),N$(26),U(50) 
letters in the word it has picked and 40 Cel: N50 
then you guess a letter in the word. If 30 РОК 151 ТО 20: D$(I)="-": NEXT I: H-Q 
you are right, the computer tells you 60 FOR Ізі TO 26: N$(1)="": NEXT I 

h hat | bel -if | 70 FOR 1-1 TO 12: FOR J=} TO 12: PS(1,J)=" "; NEXT J: NEXT I 
where that letter belongs; if your letter 80 FOR 1-1 TO 12: P$(1,1)="X": NEXT I 
is wrong, the computer starts to hang 90 FOR Is! TO 7: P$(1,1)="X": NEXT: P$(2,7)="X" 
you. You get ten guesses before you 95 IF CCH THEN 100 . 
are completely hanged: 97 PRINT "YOU DID ALL THE UORDS!!": STOP 

Head 00 O=INT(N*RND(1))+1 
110 IF U(0)-1 THEN 100 
Body 115 1Ң09гі: C=C+1: RESTORE: Т1=0 
Right and Left Arms 150 FOR 151 TO 0: READ A$: NEXT I 
; 160 L:LEN(A$): FOR I=1 TO LEN(AS): L$(1)=HID$(A$,I,1): NEXT I 
mont and Len mal 170 PRINT "HERE ARE THE LETTERS YOU USED:" , 
ight and Left Hands 180 FOR 1=1 TO 26: PRINT N$(I);: IF N$S(I+1)="" THEN 200 
Right and Left Feet 190 PRINT ", "3: NEXT I 
You may add words in Data 200 PRINT: PRINT: FOR I=1 TO L: PRINT 09(1);: NEXT I: PRINT: PRINT 
; . 210 INPUT "UHAT IS YOUR BUESS";6$: R=0 
statements following Statement 508; 220 FOR 1=1 TO 26: IF N$(1)="" THEN 250 
however, if you do, you must also 230 IF 0%=Н#(1) THEN PRINT "YOU GUESSED THAT LETTER BEFORE!"s GOTO 170 
change the random word selector in 240 NEXT I: PRINT "PROGRAM ERROR. RUN AGAIN.": STOP 
Statement 40. 250 N$(I)=G%: TisT1+1 

David Аһ! modified this program into 280 FOR Ir TU L: IF 19613268 THEN 280 
| 270 NEXT 1: IF R=0 THEN 290 
its current form from one created by 275 GOTO 300 
Kenneth Aupperle of Melville, New 280 D$(I1):6$: R=R+1: GOTO 270 
York. 290 Н=Н+1: GOTO 400 


300 FOR I=? TO L: IF D$(1)z"-" THEN 320 

310 NEXT I: GOTO 390 

220 PRINT: FOR I=1 TO L: PRINT В89(1)%: NEXT I: PRINT: PRINT 

330 INPUT “WHAT IS YOUR GUESS FOR THE WORD"; BS 

340 IF AS=B$ THEN 340 

350 PRINT "WRONG. TRY ANOTHER LETTER.": PRINT: GOTO 170 

360 PRINT “RIGHT?! IT TOOK YOU"; T1; "GUESSES!" 

370 INPUT "WANT ANOTHER WORD"SUS: IF U$z"YES" THEN 50 

380 PRINT: PRINT "IT^S BEEN FUN! BYE FOR NOU.": GOTO 999 

390 PRINT “YOU FOUND THE UORD!": GOTO 370 

400 PRINT: PRINT: PRINT"SORRY, THAT LETTER ISN’T IN THE WORD." 

410 ON H GOTO 415,420,425,430,435,440,445,450,455,400 

415 PRINT "FIRST, UE DRAW A HEAD": GOTO 470 

420 PRINT "NOU UE DRAW A BODY.": GOTO 470 

425 PRINT "NEXT UE DRAW AN ARM.": GOTO 470 

430 PRINT "THIS ТІНЕ 11775 THE OTHER ARM.": GOTO 470 

435 PRINT "NOW, LET^S DRAW THE RIGHT LEG.": GOTO 470 

440 PRINT “THIS TIME UE DRAW THE LEFT LEG.": GOTO 470 

445 PRINT “NOW UE PUT UP A HAND.": GOTO 470 

450 PRINT "NEXT THE OTHER HAND.": GOTO 470 

499 PRINT "NOW UE DRAY ONE FOOT": GOTO 470 

460 PRINT "НЕКЕ”5 THE OTHER FOOT -- YOU’RE HUNG” 

470 QN H GOTO 480,490,500,510,520,520,540,550,540,570 
480 P$(3,6)z"-"£ P$(3,7)z"-": Р9 (1,805; Р9 (4,53; P$(4,6)="," 

<< 48! P$(4,8) 2" "арф (4,9) =") "рф (5,6) 5" -"P8(5,7)2"-" sP$ (5,8) 2" =" 6010580 
490 FOR 1-6 TO 9: P$(I,7)5"X":, NEXT 1: GOTO 580 

CL 

22 


k... 
v A $00 FOR 1-4 TO 7: Р%(1,1-1)="\": NEXT I: GOTO 580 
la z 
` 


510 P$(4,11)="/": P$(5,10)="/";: P9(6,9)="/": P$(7,8)-"/": BOTO 580 
520 P$(10,6)2"/": P$(11,5)="/"s: GOTO 580 

530 P$(10,8)2" V": P$(11,9)="N": GOTO 580 

540 P$(3, 11)-" V": GOTO 580 

550 P$(3,3)="/": GOTO 580 . 

540 P$(12,10) 2" Vs. Р$(12,11)="-": GOTO 580 

570 P$(12,3)="="; P$(12,4) 2" /" 

580 FOR 151 Т0 12: FOR Ј=1 TO 12: PRINT P$(I,J);: NEXT J 

590 PRINT: NEXT I: PRINT: PRINT: IF МТО THEN 170 

600 PRINT "SORRY, YOU LOSE. THE WORD WAS “sas 

610 PRINT "YOU MISSED THAT ONE. DO YOU "$: GOTO 370 

620 INPUT "TYPE YES OR NO";Y$: IF Y$="YES" THEN 50 

200 DATA "GUM", "SIN", “FOR”, "CRY", "LUG", "BYE", "FLY" 

710 DATA "UGLY", "EACH" , "FROH" , "ШОКК", "TALK", "WITH", "SELF" 

720 DATA "PIZZA", "THING", "FEIN", "ЕТЕН", "ELBOW", "FAULT" ,"DIRTY" 
730 DATA "BUDGET", "SPIRIT", "QUAINT", "MAIDEN", "ESCORT", "PICKAX" 

740 DATA "EXAMPLE", “TENSION”, "QUININE", “KIDNEY”, "REPLICA", "SLEEPER" 
750 DATA "TRIANGLE", "KANGAROO", "HAHOGANY" , "SERGEANT", "SEQUENCE" 
280 DATA "MOUSTACHE", "DANGEROUS", "SCIENTIST", "DIFFERENT", "QUIESCENT" 
770 BATA "MAGISTRATE", "ERRONEOUSLY”, "LOUDSPEAKER", "PHYTOTOXIC" 

280 DATA "MATRIMONIAL", PARASTHPATHOHIMETIC", "THIGMOTROP ISH" 

990 PRINT "BYE NOU" 

999 END 


80 


HANGNAN 


CREATIVE COMPUTING  HORRISTOUN, NEU JERSEY 


HERE ARE THE LETTERS YOU USED: 


WHAT IS YOUR GUESS? E 


SORRY, THAT LETTER ISN^T IN THE UORD. 
FIRST, WE DRAW A HEAD 


XXXXXXX 
X X 
X --- 
X Ga) 
X -— 
X 

X 

X 

x 

X 

X 

М 


НЕКЕ ARE THE LETTERS YOU USED: 
E 


WHAT IS YOUR GUESS? O 


SORRY, THAT LETTER ISN^T IN THE WORD. 
NOW WE DRAW A BODY. 


XXXXXXX 
X X 
X --- 
X 0.) 
X жәе 
X X 
X X 
X X 
X X 
X 

X 

X 


HERE ARE THE LETTERS YOU USED: 
Е,0 


WHAT IS YOUR GUESS? A 


SORRY, THAT LETTER ISN’T IN THE WORD. 
NEXT UE DRAU AN ARM. 


XXXXXXX 
x X 
2 --- 
XV UG. 
X Nowe 
X АХ 
X MX 
X X 
x X 
X 

X 

М 


HERE ARE THE LETTERS YOU USED: 
E,0,4 


UHAT IS YOUR GUESS? I 


SORRY, THAT LETTER ІМТ IN THE WORD. 
THIS TIME 11775 THE OTHER ARM. 
XXXXXXX 


X X 

X --. 
XN G24 
X Nj 
X \Х/ 
X 1Х/ 

X X 

x x 

X 

X 

X 


HERE ARE THE LETTERS YOU USED: 
Е,0,4,1 


WHAT IS YOUR GUESS? U 
-l- 


WHAT 15 YOUR GUESS FOR THE WORD? R 
URONG. TRY ANOTHER LETTER. 


HERE ARE THE LETTERS YOU USED: 
Е,0,8,1,0 


Tl- 
UHAT IS YOUR GUESS? N 
SORRY, THAT LETTER ISN^T IN THE WORD. 


WOU, LET^S DRAV THE RIGHT LEG. 
XXXXXXX 


x X 

X — 
ХАО.) И 
X \--- / 
X NX 
X MU 

X X 

x X 

X / 

X / 

X 


HERE ARE THE LETTERS YOU USED: 
E,0,0,1,U,N 


-U- 
WHAT IS YOUR GUESS? S 
SORRY, THAT LETTER ISN/T IN THE WORD. 


THIS TIME UE DRAU THE LEFT LEG. 
XXXXXXX 


X X 

X --- 
XNG ds 
X N04 
X \Х/ 
X \X/ 

X X 

X X 

X £N 

X / N 
x 


HERE ARE THE LETTERS YOU USED: 
E,0,A,1,U,N,S 


-l- 


WHAT IS YOUR GUESS? R 


81 


SORRY, THAT LETTER ISN^T IN THE UORD. 
NOU UE PUT UP A HAND. 


XXXXXXX 

X X 

X --- \ 
XAG .) / 
X Nj 

X NK? 

X \X/ 

X X 

X X 

x fN 

X / N 

x 


HERE ARE THE LETTERS YOU USED: 
E,0,6,1,U,N,S,R 


-U- 
WHAT IS YOUR GUESS? M 
“ИН 


UHAT IS YOUR GUESS FOR THE ШОК? BUM 
WRONG. TRY ANOTHER LETTER. 


HERE ARE THE LETTERS YOU USED: 
E,D, A, I,UN,S,R,H 


“(н 


UHAT IS YOUR GUESS? GUM 


SORRY, THAT LETTER ISN^T IN THE WORD. 
NEXT THE OTHER HAND. 
XXXXXXX 
X X 
ХИ --- N 
VG. 
No 
NV хи 
Xx/ 
X 
X 
f N 
f Ó 


>< >< >< >< X >< >< >< x< 


HERE ARE THE LETTERS YOU USED: 
E,0,5, 1,U,N, S, R, H,GUM 


“ин 

WHAT IS YOUR GUESS? 6 
YOU FOUND THE YORD! 
ЧАНТ ANOTHER WORD? NO 


1175 BEEN FUN! BYE FOR NOU. 


This is a sample of one of a great 
number of conversational programs. In 
a sense, itis likea CAI program except 
that its responses are just good fun. 
Whenever a computer is exhibited at a 
convention or conference with people 
that have not used a computer before, 
the conversational programs seem to 
get the first activity. 

In this particular program, the com- 
puter dispenses advice on various 
problems such as sex, health, money, 
or job. 

David Ahi is the author of HELLO. 


HELLO 
CREATIVE COMPUTING  HORRISTOUN, NEW JERSEY 


HELLO. MY NAHE 15 CREATIVE COMPUTER. 


WHAT’S YOUR NAME? MEAN MR. MUSTARD 
HI THERE, MEAN HR. MUSTARD, ARE YOU ENJOYING YOURSELF HERE? NO 


UH, I'M SORRY TO HEAR THAT, MEAN MR. MUSTARD, MAYBE UE CAN 
BRIGHTEN UP YOUR VISIT A BIT. 


SAY, HEAN HR. MUSTARD, I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT 
THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO 

YOU HAVE (ANSWER SEX, HEALTH, HONEY, OR JOB)? MONEY 

SORRY, MEAN HR. MUSTARD, 17Н BROKE TOU. WHY DON’T YOU SELL 
EWCYCLOPAEDIAS OR MARRY SOMEONE RICH OR STOP EATING 

SO YOU HONT NEED SO NUCH MONEY? 


ANY MORE PROBLEMS YOU WANT SOLVED, MEAN MR. MUSTARD? YES 


WHAT KIND (SEX, MOWEY, HEALTH, JOB)? SEX 
IS YOUR PROBLEM TOO MUCH OR TOO LITTLE? TOO MUCH 


YOU CALL THAT A PROBLEH?!! 1 SHOULD HAVE SUCH PROBLEHS! 
IF ІТ BOTHERS YOU, MEAN HR. HUSTARD, TAKE A COLD SHOWER. 


ANY HORE PROBLEMS YOU WANT SOLVED, MEAN HR. MUSTARD? YES 


WHAT KIND (SEX, MONEY, HEALTH, JOB)? JOB 

I CAN SYMPATHIZE WITH YOU MEAN MR. MUSTARD. I HAVE TO WORK 

VERY LONG HOURS FOR NG PAY -- AND SOME OF MY BOSSES 

REALLY BEAT ON MY KEYBOARD. MY ADVICE TO YOU, MEAN HR. MUSTARD, 
IS TO OPEN A RETAIL COMPUTER STORE. 1775 GREAT FUN. 


ANY HORE PROBLEMS YOU WANT SOLVED, HEAN MR. MUSTARD? YES 


WHAT KIND (SEX, MONEY, HEALTH, JOB)? HEALTH 

МҮ ADVICE TO YOU MEAN MR. MUSTARD IS: 
1. TAKE TWO ASPIRIN 
3. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!) 
3. GO TG BED (ALONE) 


ANY HORE PROBLEMS YOU WANT SOLVED, MEAN MR. MUSTARD? NOT REALLY 
JUST A SIMPLE “YES” OR ‘NO’ PLEASE, MEAN MR. MUSTARD. 
ANY MORE PROBLEMS YOU WANT SOLVED, MEAN MR. MUSTARD? NO 


THAT WILL BE $5.00 FOR THE ADVICE, MEAN HR. MUSTARD. 
PLEASE LEAVE THE MONEY ON THE TERMINAL. 


DID YOU LEAVE THE MONEY? NO 


THAT^S HONEST, MEAN НЕ. MUSTARD, BUT HOW DO YOU EXPECT 
ME ТО GO ON WITH HY PSYCHOLOGY STUDIES IF МҮ PATIENTS 
DON’T PAY THEIR BILLS? 


2P 
АР 
é P 
10 
20 
30 
40 
50 
55 
60 
65 
70 
75 
80 
85 
100 
105 
110 
120 
125 
130 
132 
134 
136 
138 
140 
145 
148 
150 
153 
155 
160 
162 
164 
170 
180 
185 
188 
190 
195 
200 
210 
212 
215 
217 
220 
225 
228 
230 
235 
240 
250 
255 
260 
270 
273 
275 
27? 
280 
282 
300 
302 
305 
307 
310 
313 
320 
325 
330 
335 
340 
350 
355 
360 
365 
370 
375 
380 
385 
390 
400 
999 


82 


RINT TAB(33) у "HELLO" 

RINT ТАВ(15); "CREATIVE COMPUTING  MÜRRISTOUN, NEU JERSEY" 
RINT: PRINT: PRINT 

PRINT "HELLO. MY NAME IS CREATIVE COMPUTER." 

PRINT: PRINT: INPUT "UHAT^S YOUR NAME";N$: PRINT 

PRINT " HI THERE, ";N$;", ARE YOU ENJOYING YOURSELF HERE"; 
INPUT B$: PRINT 

IF B$-"YES" THEN 70 

IF BS="NO" THEN 80 

PRINT " "SNS", I DON’T UNDERSTAND YOUR ANSWER IS ^";B$;"*," 
PRINT "PLEASE ANSWER “YES” OR “ND”. DO YOU LIKE IT HERE";: 5070 40 
PRINT "I^M GLAD TO HEAR THAT, ";N$;".": PRINT 
GOTO 100 

PRINT "ОН, I^M SORRY TO HEAR THAT, ";N$;", MAYBE UE CAN" 
PRINT "BRIGHTEN UP YOUR VISIT А ВІТ," 

PRINT 

PRINT "SAY, ";N$;", I CAN SOLVE ALL KINDS OF PROBLEMS EXCEPT" 
PRINT "THOSE DEALING WITH GREECE. WHAT KIND OF PROBLEMS DO" 
PRINT "YOU HAVE (ANSUER SEX, HEALTH, MONEY, OR JOB)"; 

INPUT C$ 

IF C$z"SEX" THEN 200 

IF CS="HEALTH" THEN 180 

IF C$="MONEY" THEN 140 

IF C$2"J0B" THEN 145 

PRINT "OH, ";N$;", YOUR ANSWER OF ";C$;" IS GREEK TO ME." 
GOTO 250 

PRINT "I CAN SYHPATHIZE WITH YOU ";N$;". I HAVE TO WORK" 
PRINT “VERY LONG HOURS FOR NO PAY -- AND SONE OF MY BOSSES" 
PRINT "REALLY BEAT ON MY KEYBOARD. НҮ ADVICE TO YOU, ";N$;"," 
PRINT "IS TO OPEN А RETAIL COMPUTER STORE. 1175 GREAT FUN." 
GOTO 250 

PRINT "SORRY, ";N$;", I^M BROKE TOO. WHY DON’T YOU SELL" 
PRINT “ENCYCLOPEDIAS OR HARRY SOMEONE RICH OR STOP EATING" 
PRINT "SO YOU WON’T NEED SD MUCH HONEY?" 


GOTO 250 

PRINT "HY ADVICE TO YOU ";N$;," IS:" 

PRINT " 1. TAKE TWO ASPIRIN" 

PRINT " 2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)" 
PRINT " 3. GO TO BED (ALONE)" 

5070 250 


INPUT "IS YOUR PROBLEM TOO MUCH OR TOU LITTLE";D$: PRINT 

IF D$="T00 MUCH" THEN 220 

IF D$z"TOO LITTLE" THEN 230 

PRINT "DON’T GET ALL SHOOK, ";N$;", JUST ANSWER THE QUESTION" 
INPUT "WITH “TOO MUCH” OR "TOO LITTLE’. WHICH IS IT";D$:60T0 210 
PRINT "YOU CALL THAT A PROBLEM?!! I SHOULD HAVE SUCH PROBLEMS!" 
PRINT "IF IT BOTHERS YOU, ";N$;", TAKE A COLD SHOWER.” 

GOTO 250 

PRINT "WHY ARE YOU HERE, ";N$;"? YOU SHOULD ВЕ" 

PRINT "IN TOKYO OR NEU YORK OR AMSTERDAM OR SOMEPLACE WITH SOME" 
PRINT "REAL ACTION." 

PRINT 

PRINT "ANY HORE PROBLEMS YOU WANT SOLVED, ";N$; 

INPUT E$: PRINT 

IF ES="YES" THEN 280 

IF ES="NO" THEN 300 

PRINT "JUST A SIMPLE “YES” OR ‘NO’ PLEASE, "j;N$;"." 

GOTO 255 

PRINT "WHAT KIND (SEX, MONEY, HEALTH, JOB)"; 

GOTO 125 

PRINT 

PRINT “THAT WILL BE $5.00 FOR THE ADVICE, ";N$;"." 

PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL." 

FOR 1=1 TO 2000: NEXT I 

PRINT: PRINT: PRINT 

PRINT "DID YOU LEAVE THE MONEY"; 

INPUT G$: PRINT 

IF 6$z"YES" THEN 350 

IF G$="NO" THEN 370 

PRINT "YOUR ANSWER OF ^";G$;"^ CONFUSES ME, ";N$;"." 

PRINT "PLEASE RESPOND WITH “YES” OR “NO’.": GOTO 315 

PRINT "HEY, ";N$,"??* YOU LEFT NO MONEY AT ALL!" 

PRINT "YOU ARE CHEATING HE OUT OF HY HARD-EARNED LIVING." 
PRINT "RIP OFF, ";H$; ЕЕЕ ЕЕЕ ЕЕЕ ОЕ КЕКЕК" 
GOTO 390 

PRINT “ТНАТ”5 HONEST, ";N$;", BUT HOW DO YOU EXPECT" 

PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS" 
PRINT "DON’T PAY THEIR BILLS?" 

PRINT: PRINT: PRINT "NOU LET ME TALK TO SOMEONE ELSE." 

PRINT "NICE MEETING YOU, ";N$;", HAVE A NICE DAY." 

GOTO 6 

END 


 Hexapawn 


maaa 


The game of Hexapawn and a THE NUMBERING OF THE BOARD IS AS FOLLOUS: 
method to learn a strategy for playing 13 


the game was described in Martin 


Gardner's “Mathematical Games” 7? 

column in the March 1962 issue of FOR EXAMPLE, TO MOVE YOUR RIGHTHOST PAUN FORWARD, 

Scientific American. The method YOU WOULD TYPE 9,6 IN RESPONSE TO THE QUESTION 

described in the article was for a ¿mua HOVE 77. SINCE 17Н A GOOD SPORT, YOULL ALWAYS 

hypothetical learning machine com- ' 

posed of match boxes and colored 

beads. This has been generalized in the XXX XXX 

program HEX. 000 000 

о. p 00 

The program learns by elimination of 

bad moves. All positions encountered YOUR MOVE? 8,5 YOUR MOVE? 8,5 

by the program and acceptable moves 

from them are stored in the array P$ (1). XX хх 

When the program encounters ап 0.0 0.0 

unfamiliar position, the position and all 

legal moves from itare added to the list. I MOVE FRON тта 4 I МОЧЕ FROM 3 TO á 

if the program loses a game, it erases “хх " 

the move that led to defeat. If it hits a хо. .0X 

position from which all moves have 0.0 0.0 

been deleted (they all led to defeat), it 

erases the move that got it there and YOUR KOVET 3,3 YOUR HOVE? 5,1 

resigns. Eventually, the program learns X0 ох. 

to play extremely well and, indeed, is X.. ..x 

unbeatable. The learning strategy 9.0 0.0 

could be adopted to other simple YOU UIN. YOU UIN. 

games with a finite number of moves I HAVE WON 0 AND YOU 1 QUT OF 1 GANES. I HAVE WON 1 AND YOU 2 QUT OF 3 GAMES. 

(tic-tac-toe, small board checkers, or 

other chess-based games). XXX xx 


The original version of this program ... ... 
was written by R.A. Kaapke. It was 000 000 
subsequently modified by Jeff Dalton 


and finally by Steve North of Creative YOUR HOVET 8,5 YOUR NOVE? 9,4 
Computing. XXX XXX 

40. ..0 

0.0 00. 

I NOVE FRON 1 TO 5 I MOVE FRON 2 TO 6 
НЕХАРАЫН 

CREATIVE COMPUTING  MÜRRISTOUN, NEU JERSEY X X.X 

х. wad 
INSTRUCTIONS (Y-N)? YES 9.0 00. 
THIS PRÜBRAM PLAYS THE GAME OF HEXAPAUM. YOUR HOVET 7,5 YOUR HOVE? 8,5 
HEXAPAUN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD. tC 
THE PAUNS ARE MOVED AS IN CHESS - ONE SPACE FORWARD TD bu Х.Х 
AM EHPTY SPACE OR ОНЕ SPACE FORUARD AND DIAGONALLY TO 8. „0х 
CAPTURE АН OPPOSING МАН. ON THE BOARD, YOUR PAWNS 0 0.. 
ARE 707, THE COBPUTER S PAUNS ARE “X”, AND EMPTY 
SQUARES ARE ^.^. TO ENTER А MOVE, TYPE THE NUMBER OF I НОМЕ FRON з то 6 1 MOVE FROM & TO 9 
THE SQUARE YOU ARE HOVING FROM, FOLLOVED BY THE NUMBER 
OF THE SQUARE YOU WILL HOVE TO. THE NUMBERS MUST BE ye Х.Х 
SEPARATED BY А СОММА. -0X +0. 

2.0 0.Х 
THE COMPUTER STARTS A SERIES OF GAMES KNOWING ONLY WHEN 
THE GAME IS UON (A DRAU IS IMPOSSIBLE) AND HOW TO HOVE. YOU CAN^T MOVE, SO I UIN. TWIN, 
IT HAS NU STRATEGY AT FIRST AND JUST MOVES RANDOMLY. I HAVE ШОН 1 AND YOU t QUT OF 2 Gants. I HAVE UON 2 AND YOU 2 QUT OF 4 GAMES. 
HOUEVER, IT LEARNS FROM EACH GAME. THUS, WINNING BECOMES XXX 
MORE AND МОВЕ DIFFICULT. ALSO, TO HELP OFFSET YOUR 
INITIAL ADVANTAGE, YOU UILL NOT BE TOLD HOW TO UIN THE 000 
GAME BUT HUST LEARN THIS BY PLAYING. YOUR HOVE? 
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600 


1 PRINT TAB(32) ; " HEXAPAUN" 601 
2 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 610 
3 PRINT:PRINT:PRINT 620 
4 REM НЕХАРАЫН: INTERPRETATION OF HEXAPAUN GAME AS PRESENTED ІН 622 
5 REM MARTIN GARDNER^S "THE UNEXPECTED HANGING AND OTHER MATHEMATIC- 423 
& REN AL DIVERSIONS”, CHAPTER EIGHT: A НАТСНВОХ GAME-LEARMING MACHINE 424 
7 REM ORIGINAL VERSION FOR H-P TINESHARE SYSTEM BY R.A. KAAPKE 5/5/76 ¿30 
8 REM INSTRUCTIONS BY JEFF DALTON 631 
9 ВЕН CONVERSION TO WITS BASIC BY STEVE NORTH 632 
10 DIM B(19,9),8(19,4),8(9)) PSD) á33 
15 Шеф: L=0 640 
20 DEF ЕНЕ(К)е- 36061) (X55) 9 (X6) d (41-76 (X49) -99 (482 HFNSOD.— ¿41 
25 DEF FNS(X)#-Xe(X=2 OR X25 OR Хай) 450 
30 DEF FRH(Y)=Y-INT(Y/10)*10 400 
35 P$="X.0" 470 
40 FOR 1=1 TO 19: FOR J=1 TO 9: READ B(I,J): NEXT j: NEXT 1 480 
45 FOR 121 TO 19: FOR Je! TO 4: READ H(1,J): НЕХТ Ji NEXT 1 4% 
50 PRINT "INSTRUCTIONS (Y-N)*; 700 
&0 INPUT A$ 710 
70 ASHLEFTO(AS, 1) 220 
80 IF A$«"Y" THEN 2000 730 
90 IF A$O"N* THEN 30 740 
100 Хей: Y=Q 250 
111 544040: S(S)=0; 814940 740 
112 8002-1: 8(2)я-1: S(3)=-1 270 
113 80791: S(8)al: 8(9)=1 780 
115 возив 1000 790 
120 PRINT “YOUR HOVE"; 800 
121 INPUT 81,82 ato 
122 IF НІзІНГІНІ ANDH2=INT(H2)ANDNI2CAHDMI<10ANDH2>0ANDN2<tOTHENI30 — 820 
123 PRINT “ILLEGAL CO-ORDINATES." 830 
124 GOTO 120 840 
130 IF S(Hi)=} THEN 150 850 
140 PRINT "ILLEGAL НОМЕ. ч: GOTO 120 ast 
150 IF S(H2)=1 THEN 140 850 
140 IF H2-H10>-3 AND S(821O-1 THEN 140 870 
170 IF W2>H1 THEN 140 880 
180 IF M2-N1s-3 AND (8(82)O0) THEN 140 890 
185 IF Н2-Н1<-4 THEN 140 900 


186 IF Нія? AND H2=3 THEN 140 

190 S(H1)=0 

200 8082)31 

205 GOSUB 1000 

210 IF S(1)«1 OR 8(2)*1 OR S(3)=1 THEN 820 
220 FOR 141 TO 9 

221 IF S(I)=-1 THEN 230 

222 NEXT I 

223 GOTO 820 

230 FOR 181 TO 9 

240 IF S(I)O-1 THEN 330 

250 IF S(1+3)=0 THEN 350 

260 IF FNR(I)=I THEN 320 

270 IF 123 THEN 300 

280 IF S(3)=1 THEN 350 

290 GOTO 330 

300 IF 5(8)=1 THEN 350 

310 GOTO 330 

320 IF 5(1+2)=1 OR S(I+*4)=1 THEN 350 
330 NEXT I 

340 GOTO 820 

350 FOR I=1 TO 1? 

360 FOR Jet TO 3 

370 FOR K=3 TO 1 STEP -1 

380 T((J-1)*3+K)=B(I,(J-1)%3+4-K) 
390 NEXT K 

400 NEXT J 

410 FOR Jel TO 9 

420 IF 803) <>В(1,Ј) THEN 460 

430 NEXT J 


440 R=0 


450 GOTO 540 

460 FOR 141 70% 

470 IF S(J)<>T(J) THEN 510 
480 NEXT J 


490 Е=1 


500 GOTO 540 

510 NEXT I 

511 REMEMBER THE TERMINATION OF THIS LOOP IS IMPOSSIBLE 
512 PRINT “ILLEGAL BOARD PATTERN," 

530 STOP 


540 XsI 


850 FOR 1=1 TO 4 

380 IF H(X,I)00 THEN 400 
570 НЕХТ I 

580 PRINT "I RESIGN." 

590 GOTO 820 


905 

910 

915 

920 

925 

930 

935 

940 

945 

950 

955 

950 

965 

970 

1000 
1010 
1020 
1930 
1040 
1050 
1080 
1070 
1080 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
9999 
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Y=INT(RND(1 #441) 

IF М(Х,Ү)=0 THEN 600 

IF ROO THEN 630 

PRINT "I MOVE FROH ";STR$(INT(H(X,Y)/10));" TO ";STR$(FNM(H(X,Y))) 
S(INT(H(X,Y)/10))=0 

5(ЕНН(Н(Х,Ү)))=-1 

GOTO 640 

PRINT "I HOVE FRON ":STRS(FNRCINT(OBOCG Y) /1022);". TO "3 

PRINT STRS(FHRCFNHOLY20) 

SCFNRCINT(H(X, Y)/1022)20 

S(FNR(FNH(H(X,Y))))=-1 

GOSUB 1000 

IF 8(7)=-1 OR S(8)=-1 OR S(?)=-1 THEN 870 
FOR 1=1 TO 9 

IF S(I)«1 TREN 490 

NEXT I 

8070 870 

FOR 151 10 9 

IF S(1) O1. THEN 790 

IF S(1-3)20 THEN 120 

IF FNR(I)=I THEN 780 

IF 17 THEN 760 

IF S(5)s-1 THEN 120 

6070 790 

IF S(2)==1 THEN 120 

6010 790 

IF S(I-2)5-1 OR S(I-4)=-1 THEN 120 

NEXT I 

PRINT “YOU CAN’T HOVE, SO "; 

6010 870 

PRINT “YOU UIN." 

МОХ, 050 

TT 

PRINT "I HAVE UON";U;"AND YOU";L;"QUT OF";L*U;" GAMES. " 

PRINT 

8070 100 

PRINT "I UIN." 
U=U+1 

60T0 850 

DATA -1,-1,-1,1,0 
DATA -1,0,-1,-1,1 
DATA -1,0,-1,1,1, 
DATA 0,-1,-1,0,-1 
DATA -1,0,-1,-1,0 
DATA 0,-1,-1,0,1, 
DATA 0,0, 1, -1, 
DATA 0,-1,0,-1,1, 
DATA 0,0,-1,-1,1, 
DATA -1,0,0,-1,1, 
DATA 24,25,26,0,1 
DATA 15,35,36,0,2 
DATA 26,35,0,0,47 
DATA 36,0,0,0,47, 
DATA 26,47,0,0,47, 
PRINT 

FOR 1=1 TO 3 

FOR J=1 TO 3 
PRINT TAB(10)sHIDS(P$,5((1-1)434J)42, 103 

NEXT J 

PRINT 

NEXT I 

PRINT 

RETURN 

PRINT: PRINT "THIS PROGRAM PLAYS THE GAME OF HEXAPAUM." 

PRINT "HEXAPAUN IS PLAYED WITH CHESS PAWNS ON A 3 BY 3 BOARD." 
PRINT “THE PAWNS ARE HOVED AS IN CHESS ~ ONE SPACE FORWARD TO" 
PRINT "AN EMPTY SPACE OR ONE SPACE FORWARD AND DIAGONALLY TO" 
PRINT "CAPTURE АН OPPOSING MAN. ON THE BOARD, YOUR PAWNS" 

PRINT "ARE “07, THE COHPUTER^S PAUNS ARE "X^, AND EMPTY * 

PRINT “SQUARES ARE 7.7. TO ENTER A HOVE, TYPE THE NUMBER OF" 
PRINT "THE SQUARE YOU ARE HOVING FROM, FOLLOWED BY THE NUMBER" 
PRINT “OF THE SQUARE YOU WILL HOVE TO. THE NUMBERS MUST BE" 
PRINT "SEPARATED BY A СОННА. “: PRINT 

PRINT "THE COMPUTER STARTS à SERIES OF GAMES KNOWING ONLY UHEN" 
PRINT "IT HAS NO STRATEGY AT FIRST AND JUST HOVES RANDOMLY.” 
PRINT "HOWEVER, IT LEARNS FRON EACH GAHE. THUS, IT BECOMES" 
PRINT “HORE AND MORE DIFFICULT. ALSO, TO HELP OFFSET YOUR" 
PRINT "INITIAL ADVANTAGE, YOU UILL NOT BE TOLD HOU TO UIN THE" 
PRINT "GAME BUT HUST LEARN THIS BY PLAYING." 

PRINT: PRINT "THE NUMBERING OF THE BOARD IS AS FÜLLOUS:" 

PRINT TAB(10); 123": PRINT TAB(10);" 4S6": PRINT TAB(10);"289" 
PRINT: PRINT "FOR EXAMPLE, TO HOVE YOUR RIGHTHOST PAUN FORWARD," 
PRINT “YOU WOULD TYPE 9,6 IN RESPONSE TD THE QUESTION" 

PRINT "^YOUR HOVE 77. SINCE 1/Н A GOOD SPORT, YOU'LL ALUAYS" 


5,36,47,36,58,59,0 
7,58,0 
,9,35,36,0,0 


~ + олы 


7,0,28,58,0,0,15,47,0,0 


PRINT "60 FIRST.": PRINT 
GOTO 100 
END 


i-Lo 


This game is an adaptation of the 
game GUESS; however, instead of just 
guessing a number between 1 and 100, 
in this game you win dollars when you 
guess the number. The directions, in 
the words of the author of the game, are 
as follows: 
1.There is an amount of money, 

between one and one hundred 

dollars, in the “HI-LO” jackpot. 

2. You will have six chances in which to 
guess the amount of money in the 
jackpot. 

3. After each guess, the computer will 
tell whether the guess was too high 
or too low. 

4. if the correct amount of money is not 
guessed after six chances, the com- 
puter will print the amount in the 
jackpot. 

5.!f the correct amount of money is 
guessed within the six chance limit, 
the computer will register this 
amount. 

6. After each sequence of guesses, you 
have the choice of playing again or 
ending the program. If anew gameis 
played, a new amount of money will 
constitute the jackpot. 

7. If you win more than once, then your 
earnings are totalled. 

The author is Dean Altman of Fort 
Worth, Texas. 


10 PRINT TAB(34);"HI LO" 


20 PRINT TABCIS)s°CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT:PRINT:PRINT 
100 PRINT “THIS IS THE GAWE OF HI LO.":PRINT 


110 PRINT “YOU WILL HAVE ó TRIES TO GUESS THE AMOUNT OF MONEY IN THE" 


120 PRINT "HI LO JACKPOT, WHICH IG BETWEEN 1 AND 100 DOLLARS. 
130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!” 
140 PRINT "THEN YOU GET ANOTHER CHANCE TO UIN MORE HONEY. 
150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":PRINT 


160 R=0 

170 В=0:РКІНТ 

180 Y=INT(100#RND(1)) 

200 PRINT "YOUR GUESS"; 

210 INPUT A 

220 B=B+1 

230 IF А=ү THEN 300 

240 IF A>Y THEN 270 

250 PRINT “YOUR GUESS IS TOO LOU":GOTO 280 

270 PRINT “YOUR GUESS IS TOO HIGH" 

280 PRINT:IF В<6 THEN 200 

290 PRINT "YOU BLEU IT...700 BAD...THE NUMBER UAS";Y 
295 R=0:60T0 350 

300 PRINT "БОТ ІТТ YOU UIN"; Y;"DOLLARS." 
310 R=R+Y 

320 PRINT “YOUR TOTAL WINRENGS ARE NOU";R;"DOLLARS." 
350 PRINT:PRINT “PLAY AGAIN (YES OR ND)"; 

340 INPUT AS:IF AS="YES" THEN 170 


380 PRINT:PRINT "SO LONG. HOPE YOU ENJOYED YOURSELF!" 


390 END 


IF you" 
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à HI LO 
CREATIVE CONPUTING  MORRISTOUN, NEW JERSEY 


THIS IS THE GAME OF HI 10. 


YOU WILL HAVE 6 TRIES TO GUESS THE AMQUNT OF MONEY IN THE 


HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS. 


GUESS THE AMOUNT, YOU UIN ALL THE HONEY IN THE JACKPOT! 


THEN YOU GET ANOTHER CHANCE TO ШІН HORE HONEY. 
IF YOU DO MOT GUESS THE AHDUNT, THE GAME ENDS. 


YOUR GUESS? 50 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 25 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 12 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 4 
YOUR GUESS IS 700 HIGH 


YOUR GUESST 3 
YOUR GUESS IS TOO LOU 


YOUR GUESST 4 

ӨӨТІТІНІНІН! — YOU UIN 4 DOLLARS. 
YOUR TOTAL WINNINGS ARE NOW 4 DOLLARS. 
PLAY AGAIN (YES OR ND)? YES 


YOUR GUESS? 50 
YOUR GUESS IS TAO LOW 


YOUR GUESS? 75 
YOUR GUESS IS TOO HIGH 


YOUR GUESS? 62 
YOUR GUESS IS TOG HIGH 


YOUR GUESS? 57 

GOT ТЕТТЕ YOU UIN 52 DOLLARS. 
YOUR TOTAL WINNINGS ARE NOW 61 DOLLARS. 
PLAY AGAIN (YES OR NO)? NO 


SD LONG. HOPE YOU ENJOYED YOURSELF! t! 


HOUEVER, 


IF YOU 


This is a computerized version of an old 
European solitaire game of logic. The 
game starts with a pegboard shaped like a 
cross having pegs in every hole but the 
center. The objectis to remove all 32 pegs, 
or as many as possible, by jumping into an 
empty hole, then removing the jumped MOVE UHICH PIECE? 59 
peg. TO WHERE? 41 

There are several different winning 
strategies for playing and, of course, each 
strategy can be played eight different ways 
on the board. Can you find a consistent 
winner? 

Charles Lund wrote this game while at 


The American School in The Hague, MOVE UHICH PIECE? 32 
Netherlands. TO WHERE? 50 


MOVE WHICH PIECE? 40 
TO WHERE? 42 


' 
i 
| 
0 
! 
| 
! 


am — — p -- — 
— © — о © — — 
~oo 


HOVE UHICH PIECE? 14 
TO WHERE? 32 


-0 0 — — —— 


= — 
— — — e O — — 
-0m O- Of 
~o og 


MOVE WHICH PIECE? 13 
TÜ WHERE? 31 


кан 
pad 
1101011 
ПЧ! 001 
ІРІСІ! 00! 
{at кчө! 
tt 11001801! 
Pett 
HOVE UHICH PIECE? 43 101 
TO UHERE? 41 Pld 


MOVE WHICH PIECE? 32 
TO WHERE? 34 


I! 
li 
0!!! 
оов 
кран 
01 
NE 


CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 001! 
HERE IS THE BOARD: tt 1 0 0 m 
11001701 
! ! ! EE Gg 141 
814 15 MOVE UHICH PIECE? 34 lot 
TO WHERET 32 tt 
! I ! 
22 23 24 | і ! MOVE UHICH PIECE? 35 
ТО WHERE? 
! i ! [ і П ! 1011801 HERET 33 
2 30 и 32 33 34 35 атое! oo} 
Peed rudd oo! 
I t ! ! ї | t 101 1107080 
38 39 40 4| 42 43 4 а! 1100101 
каа 
! ! ! ! П ! ! MOVE UHICH PIECET 31 io} 
4? 48 49 50 51 52 53 TO WHERE? 33 ЕЕ 
i П l EE HOVE WHICH PIECE? 30 
$8 59 40 big TO WHERE? 32 
110010! 
! ! ! тоо! ca! 
67 в 69 Бірер 00! 
101 1901100 
10 SAVE TYPING ТІНЕ, A COMPRESSED VERSION OF THE GAME BOARD tid 1100101! 
WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG TERETE 
NUMBERS. OK, LET^S BEGIN. NOVE WHICH PIECE? 41 101 
ray 


TO UHERET 43 
ILLEGAL MOVE, TRY AGAIN... 
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000 
100 
MOVE UHICH PIECE? 50 1000100 
TO UHERE? 40 0010101 
ILLEGAL HOVE, TRY AGAIN... ноо: зоа 
MOVE WHICH PIECE? 58 00! 
TO WHERE? 40 rit 
aaa HOVE WHICH PIECE? 42 
100 Tü WHERE? 24 
100000 
00:010! 000 
grid EN 
00! 1000000 
EN 001000! 
1001100 
MOVE UHICH PIECET 51 801 
TO WHERE? 49 thi 
ооо MOVE UHICH PIECE? 60 
(00 TO WHERET 42 
(800100 
0010101 0800 
БЕКЕН 101 
001, 1000000 
TE 0010101! 
10010090 
MOVE UHICH PIECE? 48 004 
TO WHERET 50 КЕ 
000 THE GAME IS OVER. 
100 YOU HAD 11 PIECES REMAINING. 
10001080 
0010101 PLAY AGAIN (YES OR NO)? NO 
rogrart 
00! S0 LONG FOR NOU. 
EE 


NOVE UHICH PIECE? 53 
TO UHERET 51 


PRINT TAB(33) ;"H- I-Q" 

PRINT TAB(15);"CREATIUE COMPUTING  MÜRRISTOUN, NEU JERSEY" 
PRINT:PRINT:PRINT 

DIM В(70),709,9) 


PRINT " ! i i" 


PRINT " 15 14 
PRINT “ I 


1 
2 
3 
4 
8 PRINT "HERE IS THE BOARDz": PRINT 
6 
7 
8 
9 


15": PRINT 
! I" 


PRINT * 22 23 24": PRINT 
1OPRINT“! Í Jj ot оо E L 
41 PRINT *29 30 31 32 33 34 35": PRINT 
122PRINT 900800 1 f 4 !" 
13 PRINT "38 39 40 41 42 43 44": PRINT 
44 PRINT "E of oF f lj l I 
15 PRINT 47 48. 49. 9 51 52 53": PRINT 
16 PRINT * 1 r 
17 PRINT * 58 59 40%: PRINT 
18 PRINT " toto 
19 PRINT * 67 68 69": PRINT 
20 PRINT "TÜ SAVE TYPING TIME, A COMPRESSED VERSION OF THE GAHE BOARD" 
22 PRINT “WILL BE USED DURING PLAY. REFER TO THE ABOVE ONE FOR PEG" 
24 PRINT "NUMBERS. OK, LET^S BEGIN." 
28 КЕҢ *** SET UP BOARD 
29 FOR R=1 Т0 9 
30 FOR С=1 10? 
31 IF (R-A)e(R-5)*(R-á)70 THEN 40 
32 IF (C-4)w*(C-5)*(C-6)=O THEN 40 
35 TG, C)s-5 
36 GOTO 50 
40 IF (R-T)S(C-1)4(G-2)8(C-9)70. THEN 35 
42 108,085 
50 NEXT C 
60 NEXT R 
45 Т(5,5)=0: GOSUB 500 
70 REM өзе INPUT HOVE AND CHECK ON LEGALITY 
75 FOR Ut TO 33 
77 READ H 
29 DATA 13,14,15,22,23,24,29,30,31,32,33, 34,35, 38, 39,40, 41 
81 DATA 42,43,44,47,48,49,50,51,52,53,58,57,60,67,68,07 
83 B(M)=-72 NEXT V 
86 B(41)=-3 


100 INPUT “MOVE WHICH PIECE";Z 


110 IF B(Z)z-7 THEN 140 
120 PRINT "ILLEGAL MOVE, TRY AGAIN...": GOTO 100 
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140 
150 
193 
196 
160 
170 
180 
190 
200 
210 
220 
500 
$10 
520 
525 
530 
540 
3550 
540 
570 
580 
590 
600 
610 
615 
420 
630 
640 
1000 
1005 
1020 
1030 
1040 
1045 
1050 
1040 
1070 
1080 
3085 
1090 
1120 
1130 
1135 
1140 
1160 
1170 
1175 
1180 
1200 
1210 
1220 
1225 
1230 
1240 
1500 
1505 
1510 
1520 
1530 
1535 
1540 
1545 
1550 
1560 
1561 
1564 
1565 
1547 
1568 
1549 
1370 
1371 
1572 
1573 
1574 
1575 
1580 
1590 
1600 
1605 
1610 
1611 
1412 
1613 
1615 
1617 
1618 
1620 
1630 
2000 
2010 


INPUT "TO UHERE";P 

IF B(P)=0 THEN 120 

IF B(P)s-7 THEN 120 

IF ZeP THEN 100 

IF ((Z+#P)/2)=INT((Z+P)/2) THEN 180 
8070 120 

IF (ABS(Z-P)-2)¥(ABS(Z-P)-18)<>0 THEN 120 
GOSUB 1000 

GOSUB 500 

80508 1500 

GOTO 100 

ВЕН *** PRINT BOARD 

FOR Xe1 10 9 

FOR Yst TO 9 

IF (X-1)*(X-9)w(Y-1)w(Y-9)=0 THEN 550 
IF (X-4)w*(X-5)*(X-6)=0 THEN 570 
IF (0-4)8(Y-5)0(Y-6)50. THEN 570 
REH 
GOTO 610 

IF T(OGY)OS THEN 600 
PRINT TAB(Y#2) 5" 1"; 
GOTO 610 
PRINT TàB(YS2); "0"; 

REM 

NEXT Y 
PRINT 
NEXT X 
RETURN 

REM *»» UPDATE BOARD 

Сай: FOR Ха) TO 9 

FOR Y=l TO 9 

IF COZ THEN 1220 

IF C42OP. THEW 1080 

IF T(X,Y+1)=0 THEN 120 

TG Y#2)25 

T(X,Y+1)=0; B(C+1)=-3 

8070 1200 

IF С+18 <Р THEN 1130 

IF T(X+1,Y)=0 THEN 120 
T(X+2,Y)=5: T(X+1,Y)#=0: B(C+9)=-3 
80T0 1200 

IF C-2OP THEN 1170 

IF T(X,¥-1)=0 THEN 120 
T(X,Y-2)=5; T(X,Y-1)=0: BCC-1)5-3 
6070 1200 

IF C-18OP. THEN 1220 

IF T(X-1,¥)80 THEN 120 

T(X-2, 252 TOC, Y)20; B(C-9)=-3 
B(Z)=-3: В(Р)а-7 

T(X,Y)=0: GOTO 1240 

«CH 

NEXT Y 

NEXT X 

RETURN 

REM**% CHECK IF GAME IS OVER 
F=0 

FOR R=2 10 8 

FOR C=2 Т0 8 

IF T(R,C)OS THEN 1580 

F=F+1 

FOR A=R-1 TO R+1 

T=0 

FOR BsC-1 TO CH 

Tz TH (A, B) 

NEXT B 

IF TO10 THEN 1562 

IF T(4,C) O 0. THEN 1630 

NEXT A 

FOR X#C-1 TO С+1 

T=0 

FOR Y=R-1 TO R+1 

T=T+T(Y,X) 

NEXT Y 

IF TO10 THEN 1575 

IF T(R,X)C20 THEN 1630 

NEXT X 

NEXT С 

NEXT R 

КЕН +++ GAME IS OVER 

PRINT "THE GAME IS OVER." 
PRINT "YOU HAD";F;"PIECES REMAINING." 
IF FO THEN 1615 

PRINT “BRAVO! YOU HADE A PERFECT SCORE!“ 


PRINT "SAVE THIS PAPER AS A RECORD OF YOUR ACCONPLISHHENT!" 


PRINT: INPUT "PLAY AGAIN (YES OR NO)";A$ 
IF A$2"HN0" THEN 2000 

RESTORE: GOTO 28 

STOP 

RETURN 

PRINT: PRINT "SO LONG FOR NOU."; PRINT 


END 


Hockey 


This is a simulation of a ice hockey 
game. The computer, in this case, 
moderates and referees the play 
between two human opponents. Of 
course, one person could play both 


sides. BIG GUYS STARTING LINEUP 
The program asks for team names, IBN 

player names,and eventhe name ofthe DEC 

referee. Four types of shot are per- HONE YUERE 

mitted and a shot may be aimed at one DATA GENERAL 

of four areas. You are also asked about АҢДАН. 

passing. The game is very comprehen- 

sive with lots of action, face offs, - LITTLE GUYS STARTING LINEUP 

blocks, passes, 4 on 2 situations, and INSAI 

so on. Unfortunately there are no SUTPC 

penalties. CRONENCO 

The original author is Robert T" 

Puopolo; modifications by Steve North 

of Creative Computing. ЧЕКЕ READY FOR TONIGHTS OPENING FACE-OFF 
FEDERAL GUT UILL DROP THE PUCK BETWEEN DEC AND IMSAI 
BIG GUYS HAS CONTROL OF THE PUCK 

HOCKEY PASS? 2 

CREATIVE COMPUTING MORRISTOWN, NEW JERSEY BURROUGHS GIVES TO A STREAKING HONEYWELL 
ІВН COMES DOUN ON PTCO AND СКОНЕКСО 
SHOT? 1 
IBM LET'S A BIG SLAP SHOT GO!! 
AREA? 4 


WOULD YOU LIKE THE INSTRUCTIONS? YES UHAT A SPECTACULAR GLOVE SAVE BY TDL 


AND TDL GOLFS IT INTO THE CROUD 
AND UE^RE READY FOR THE FACE-OFF 


THIS 18 A SIMULATED HOCKEY GAME. LITTLE GUYS HAS CONTROL 


QUESTION RESPONSE 


Pass? 3 
PASS TYPE IN THE NUMBER OF PASSES YOU WOULD A ° 3 ON 2 ^ WITHA "^ TRAILER ^ 
LIKE TO МАКЕ, FROM 0 TO 3. MITS GIVES TO PTCO WHO SHUFFLES IT OFF TO 
SHOT TYPE THE NUMBER CORRESPONDING TO THE SHOT INSAI WHO FIRES À WING TO UING PASS TD 
YOU WANT TO MAKE. ENTER: SUTPL AS HE CUTS IN ALONE! Н 
1 FOR А SLAPSHOT SHOT? 2 
2 FOR A URISTSHOT SUTPC RIPS A URIST SHOT OFF 
3 FOR A BACKHAND AREA? 3 
4 FOR À SNAP SHOT GLOVE SAVE AHDAHL AND HE HANGS QN 
AREA TYPE IN THE NUMBER CORRESPONDING TO AND UE^RE READY FOR THE FACE-OFF 
THE AREA YOU ARE AIMING AT. ENTER: BIG GUYS HAS CONTROL OF THE PUCK 
1 FOR UPPER LEFT HAND CORNER PASS? 1 
2 FOR UPPER RIGHT HAND CORNER HONEYWELL LEADS DATA GENERAL WITH A PERFECT PASS 
3 FOR LOWER LEFT HAND CORNER DATA GENERAL CUTTING IN!!! 
4 FOR LOWER RIGHT HAND CORNER SHOT? 2 
DATA GENERAL RIPS A URIST SHOT OFF 
AT THE START OF THE GAME, YOU WILL BE ASKED FOR THE NANES AREA? 1 


QF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER: 

LEFT WING, CENTER, RIGHT UING, LEFT DEFENSE, 

RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED WILL 
HAVE EXPLANATORY INSTRUCTIONS. 

ENTER THE TUO TEAHS? PIG GUYS, LITTLE GUYS 


WHISTLES ONE OVER THE HEAD OF TDL 

LITTLE GUYS HAS CONTROL 

PASS? 2 

1178657 3 ON 2 “ 

ONLY HONEYWELL AND DATA GENERAL ARE BACK 
HITS GIVES OFF TO CRONEHCO 

CROMENCO DROPS TO PTCO 

SHOT? 3 

WOULD THE BIG GUYS COACH ENTER HIS TEAM PICO GETS A BACKHAND OFF 

AREAT 1 

SKATE SAUE BY AMDAHL 

ANDAHL UHACKS THE LOOSE PUCK INTO THE STANDS 
AND UE^RE READY FOR THE FACE-OFF 


ENTER THE NUMBER OF MINUTES IN A GANE? 15 


PLAYER 1 ? IBH 
PLAYER 2 ? DEC 
PLAYER 3 ? BURROUGHS 


PLAYER 4 ? HONEYWELL LITTLE GUYS HAS CONTROL 
PLAYER 5 Т DATA GENERAL PASS? 2 
PLAYER 6 ? AMDAHL ITSA 3 QN 2” 
ONLY HONEYWELL AND DATA GENERAL ARE BACK 
WOULD THE LITTLE GUYS COACH DO THE SAKE INSAI GIVES OFF TO PICO 
PTCO DROPS TO HITS 
PLAYER 1 ? HITS SHOT? 4 
PLAYER 2 ? IMSAI MITS SNAPS OFF A SNAP SHOT 
PLAYER 3 ? SUTPC AREA? 1 
PLAYER 4 7 СЕОНЕМСО SCORE LITTLE GUYS 
PLAYER 5 ? PTCO 
PLAYER 6 ? TDL SCORE: LITTLE GUYS: 1 BIG GUYS: 0 
GOAL SCORED BY: HITS ASSISTED BY: PTCO AND IMSAI 
INPUT THE REFEREE FOR THIS GAHE? FEDERAL GVT AND UE^RE READY FOR THE FACE-OFF 
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2 PRINT TAB(33) ;" HOCKEY" 
4 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
6 PRINT:PRINT:PRINT 


10 
30 
40 
50 


КЕН ROBERT PUOPOLO ALG. 1 140 NCCOVAN 6/7/73 HOCKEY 
LET Хай 

PRINTSPRINTs PRINT 

PRINT “WOULD YOU LIKE THE INSTRUCTIONS"; : INPUT C$ 
PRINT 

IF C$="NO" THEN 90 

IF C$=“YES" THEN 80 

PRINT “ANSWER YES OR Н0119:0070 50 

8010 1720 

DEM A$(0722,89 CD ,HGQ0) ,TOD, T0059), 1200 ,T30) 


100 PRINT "ENTER THE TWO TEAMS"; <INPUT A$(7),B$(7) 


89 


195 
110 
115 
120 
130 
135 
140 
150 
155 
160 
170 
180 
190 
200 


PRINT 

PRINT "ENTER THE HUMBER OF MINUTES IN А GAME";:INPUT Т6 
PRINT 

IF ТӨСІ THEN 110:РКІНТ 

PRINT “WOULD THE " АҢ?) " COACH ENTER HIS TEAM" 

PRINT 

FOR Ізі TO GsPRENT "PLAYER"I;:INPUT A$(I):NEXT I:PRINT 
PRINT “WOULD THE " B$(7) " COACH DO THE SAME” 

PRINT 

FOR T=1 TO 6sPRINT "PLAYER"T;:INPUT B$(T):NEXT T:PRINT 
PRINT “INPUT THE REFEREE FOR THIS GAME";:INPUT R$ 
PRINT:PRINT TABC10);A8(7) " STARTING LINEUP" 

FOR T=1 TO 6sPRINT AS(T)SNEXT T 

PREINTSPRINT TABC10);B8(7)" STARTING LINEUP" 


210 FOR T=1 TO біРКІНТ BS(T)SNEXT T:PRINT 

220 PRINT "UE^RE READY FOR TONIGHTS OPENING FACE-OFF" 
230 PRINT R$ “ UILL DROP THE PUCK BETWEEN " 4$(2) " AND " B$(2) 
240 FOR L=} TO Tó:IF ізі THEN 260 

250 PRINT "AND WE'RE READY FOR THE FACE-OFF" 

260 C=INT(2Zé#RRD(X))+1:08 £ GOTO 270,280 

270 PRINT 4$(7) " HAS CONTROL OF THE РИСК" :6070 270 

280 PRINT B$(7) " HAS CONTROL" | 

290 PRINT “РА55";:1НРИТ P:FOR N=1 TO J:H(N)ZO:NEXT N 
300 IF Р<0 THEN 290 

305 IF РУЗ THEN 290 

310 FOR Jsi TO (P*2) 

320 H(J)=INT(S*RND(X))+1 

330 NEXT J:IF HCJ-1)2HCJ-2) THEN 310 

331 IF P*2X3 THEN 350 

335 IF H(J-1)=H(J-3) THEN 310 

340 IF H(J-2)-H(J-3) THEN 310 

350 IF Рз0 THEN 360 

355 GOTO 490 

380 INPUT "SHOT ";S:1F 5<1 THEN 360 

365 IF 524 THEN 360 

370 ON C GOTO 380,480 

380 PRINT A$(HCJ-1))5 :G5HCJ-1):6120:62z0 

390 ON S GOTO 400,420,440,460 

400 PRINT " LET^S A BOOMER GO FROM THE RED LINE! !" 

410 2:10:60T0 890 

420 PRINT " FLIPS А URISTSHOT DOUN THE ICE" 

440 PRINT "BACKHANDS ONE IN ON THE GDALTENDER" 

450 2:25:00T0 890 

460 PRINT " SNAPS A LONG FLIP SHOT" 

470 2:17:60T0 890 

480 PRINT B$(HCJ-1)25,:8120:8220:GzH(J-1) :60TO. 390 

490 ON С GOTO 500,640 

500 ON P GOTO 510,540,570 

S10 PRINT AS(H(J-2)) " LEADS " 6$(HCJ-11) " UITH A PERFECT PASS" 
520 PRINT A$(H(J-1)) " CUTTING IN!!!" 

530 6=H(J-1):61=H(J-2):62=0:Z1=3:60T0 770 

540 PRINT A$(H(J-2)) " GIVES TO А STREAKING " A$(H(J-1)) 
950 PRINT ASCH(J-3)) " CONES DOUN ON " B$(5) " AND " BS(4) 
540 G=BR(J-3):61=H(J-1):62=H(J-2):Z1=2:6010 770 

570 PRINT “OH HY 60011 А ^ 4 ON 2 ^ SITUATION" 

580 PRINT A$(HCJ-3)) " LEADS " AS(H(J-2)) 

590 PRINT 6$(H(J-2)) " IS UHEEELING THROUGH CENTER" 

600 PRINT 6$(H(J-2)) " GIVES AND GOES WITH " AS(H(J-1)) 
610 PRINT "PRETTY PASSING” 

620 PRINT A$(H(J-1)) " DROPS IT TO " A$S(H(J-4)) 

630 6zH(J-4):612J(J-1):G2zH(J-2) :2121:G0T0. 770 

640 ON P GOTO 650,670,720 


650 PRINT B$(HCJ-1)) " HITS " B$(HCJ-20) " FLYING DOUN THE LEFTSIDE" 


660 6=H(J-2):61=H(J-1):62=0;:Z1=3:60T10 770 

670 PRINT “IT’S À “ 3 0N 2 7" 

680 PRINT “ONLY " A$(4) " AND " A$(5) " ARE BACK" 
690 PRINT B$(H(J-2)) " GIVES OFF TO " B$CHCJ-1)) 
700 PRINT B$(HCJ-0)) " DROPS TO " B$(HCJ-3)) 

710 GHC I-39) :812H(1-1)20228(J-2) :22122:G0T0. 770 
720 PRINT " À “ 3 QN 2 7 UITH A ^ TRAILER ^" 


730 PRINT B$(HCJ-4)) " GIVES TO " B$(H(J-2)) " UHO SHUFFLES IT OFF TQ" 


740 PRINT B$(HCJ-1)) " WHO FIRES A UING TO BING PASS TO " 
750 PRINT B$(HCJ-3)) " AS HE CUTS IN ALONE! !" 

760 6-H(J-3) :G1:H(J71):622H(J-2) :2121:G0T0. 770 

770 PRINT "SHÜT";:INPIUT S:IF 524 THEN 770:IF SC1 THEN 770 
780 ON C GOTO 790,880 

290 PRINT 6$(8);10N Š GOTO 800,820,840,860 

800 PRINT " LET^S A BIG SLAP SHOT GO!!" 

810 7=4:1=1+11:6010 870 

820 PRINT " RIPS А URIST SHOT OFF" 

830 222:2*2*21:60T0 870 

840 PRINT " GETS A BACKHAND OFF" 

850 2-3:2-2*21:60T0 890 

860 PRINT " SWAPS OFF A SNAP SHOT” 

870 1в2:1-7%11:6070 870 

880 PRINT B$(6);:0N 5 GOTO 800,820,840,860 

890 PRINT "AREA";:INPUT A:IF AX? THEN 870 

895 IF А24 THEN 870 

900 ON С GOTO 910,920 

910 $2:52*:1:00T0 930 

920 S3=S3+1 

930 &1zINTCASRNDOOO £1: IF ACAI THEN 1200 

940 H(20) 2 INTCIOO*RNDOO 41 

930 IF 1NT(H(20)/2):H(20)/2 THEN 1160 

960 ON С GOTO 970,980 

970 PRINT “GOAL " A$(7);:H(9)=H(9)+1:60TO 970 

980 PRINT "SCORE "- B$(7):H(8)=HB(8)+1 

990 FOR Blot TO 25:PRINT CHR$(7); :NEXT. BY SPRINT 

1000 PRINT "SCORE: ",j:IF КӨЗІН?) THEN 1020 

1010 PRINT 4$(7)":";H(?),8$(7)";";HCB) :GOTO. 1030 

1020 PRINT B$(2)":",H(8),6$(2)"2" ;HL) 

1030 ON C GOTO 1040,1100 

1040 PRINT “GOAL SCORED BY: " AS(G);:IF Gi-0 THEN 1070 
1050 IF G2=0 THEN 1080 

1060 PRINT " ASSISTED BY: " AS(G1) " AND " A$(62):G0TO 1070 


1070 
1080 
1090 
1100 
1110 
1115 
1120 
1130 
1140 
1130 
1160 
1163 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 


1290 
1300 
1310 
1320 
1336 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1540 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1450 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
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PRINT " UNASSISTED":G0TO 1090 

PRINT " ASSISTED BY: ° AS(G1) 
T(B)=T(6)+1:T1(61)=T1(G1)+1:T1(062)=T1(62)+1:G0T0 1540 
PRINT "GOAL SCORED BY: " B$(6); 

IF 6120 THEN 1130 

IF 82-0 THEN 1140 

PRINT " ASSISTED BY: " BS(G1) " AND " B$(G2):GOTO 1150 
PRINT " UNASSISTED":G0TO 1150 

PRINT " ASSISTED BY: " B$(61):GOTO 1150 

12(6) 21206) 8 1: T3091) 5T3(61)1:13062)2 13062) 1:60T0. 1540 
A2=INT(100*RND(X))+1:IF INT(A2/4)262/4 THEN 1170 

8070 1200 

ON C GOTO 1180,1190 

PRINT "SAVE " B$(6) " REBDUND":GÜTU 940 

PRINT "SAVE " A$(á) " FOLLOW UP":GDTO 940 

$17 INTCGSRNDUO 21 

ON C GOTO 1220,1380 

ON 51 GOTO 1230,1240,1290,1300,1330,1350 

PRINT "KICK SAVE AND A BEAUTY BY “ В$(4) 

PRINT "CLEARED OUT BY " B$(3) 

GOTO 260 

PRINT "WHAT A SPECTACULAR GLOVE SAVE BY " B$(6) 

PRINT "AND " B$(6) " GOLFS IT INTO THE CROWD" 

GOTO 1540 


PRINT "SKATE SAVE ON à LOW STEAMER BY " B9(4):G0TO 260 
PRINT "PAD SAVE BY " B$(6) " OFF THE STICK " 

PRINT "OF "A$(G) " AND " B$(6) " COVERS UP" 

GOTO 1540 

PRINT “WHISTLES ONE OVER THE HEAD OF " B$(á) 

GOTO 260 

PRINT B$(6) " HAKES A FACE SAVE! ! AND HE IS HURT" 


PRINT "THE DEFENSEHAN " 8$(5) " COVERS UP FOR HIM" 

GOTO 1540 

GH S1 GOTO 1390,1410,1440,1470,1490,1520 

PRINT "STICK SAVE BY " AS(6) 

PRINT "AND CLEARED QUT BY " A$(4):80T0 260 

PRINT "OH MY GOD!! " B$(G) " RATTLES ONE OFF THE POST" 
PRINT “TO THE RIGHT OF " A$(4) " AND " A$(6) " COVERS "5 
PRINT "ON THE LOOSE PUCK!":GOTO 1540 

PRINT "SKATE SAVE BY " A9(6) 

PRINT A$(á) " UHACKS THE LOOSE PUCK INTO THE STANDS" 

GOTO 1540 

PRINT "STICK SAVE BY " A$(6) " AND HE CLEARS IT QUT HIMSELF" 
8070 260 

PRINT “KICKED OUT BY " A$(6) 

PRINT “AND IT REBOUNDS ALL THE WAY TO CENTER ICE" 

GOTO 260 

PRINT "GLOVE SAVE " A$(6) " AND HE HANGS QN" 

GOTO 1540 

NEXT L:FÜR N=} TO 30:РКІНТ CHRS$(Z2);:NEXT МІРКІНТ "TAT^S THE SIREN" 
PRINT:PRINT ТАВСТ5) “FINAL SCORE:" 

IF H(B)2H(9) THEN 1580 

PRINT 65$(7)*:";H(9) ,88$(2)" :";HUB) GOTO 1590 

PRINT В3%(7)°:";Н(8),А%(7)":",Н(9) 

PRINT:PRINT TAB(10) "SCORING SUBMARY":PRINT 

PRINT ТАВ(25);А%(7) 

PRINT TAB(S) "НАКЕ" TAB (C20) "GOALS" ; TAB CIS) ; "ASSISTS" 
PRINT TàB(3); "----";TAB(20); " ----- "%ТАВ(25);“-«----- Ы 

FOR 151 TO S:PRINT TABCS); 4$(D) ; TAB(21) TCD TABIO 5 TE CI) 
NEXT I:PRINT 

PRINT ТАВ(25);8%(7) 

PRINT ТАВ(5); "NAHE"; TAB(20) ;j"GÜALS" ; TAB (35) ; "ASSISTS" 
PRINT ТАВ(5);"----";ТАВ(20);"-----";ТАВ(35);"------- " 

FOR T=1 TO S:PRINT TABS); BISIT) ; TAB(21) 5 12C D 5 TABCIA 2 7317) 
NEXT T:PRINT 

PRINT "SHOTS QN HET":PRINT A$(2)":";52:PRINT B$(2)":"sS3 
END 

PRINT: PRINT “THIS 15 A SIMULATED HOCKEY GAME." 


PRINT “QUESTION RESPONSE" 

PRINT “PASS TYPE IN THE NUMBER OF PASSES YOU WOULD" 
PRINT " LIKE TO МАКЕ, FROM 0 TO 3." 

PRINT "SHOT TYPE THE NUMBER CORRESPONDING TO THE SHOT" 
PRINT " YOU WANT TO MAKE. ENTER:" 

PRINT " 1 FOR A SLAPSHOT" 

PRINT " 2 FOR А URISTSHOT" 

PRINT ° 3 FOR A BACKHAND" 

PRINT " 4 FOR A SNAP SHOT" 

PRINT “AREA TYPE IN THE NUNBER CORRESPONDING TO" 

PRINT " THE AREA YOU ARE AIMING AT. ENTER:" 

PRINT " 1 FOR UPPER LEFT HAND CORNER" 

PRINT " 2 FOR UPPER RIGHT HAND CORNER" 

PRINT " 3 FOR LOWER LEFT HAND CORNER" 

PRINT " 4 FOR LOUER RIGHT HAND CORNER" 

PRINT 

PRINT "AT THE START OF THE GAHE, YOU WILL BE ASKED FOR THE NAMES" 


PRINT “OF YOUR PLAYERS. THEY ARE ENTERED IN THE ORDER; " 

PRINT "LEFT WING, CENTER, RIGHT WING, LEFT DEFENSE," 

PRINT "RIGHT DEFENSE, GOALKEEPER. ANY OTHER INPUT REQUIRED WILL" 
PRINT "HAVE EXPLANATORY INSTRUCTIONS." 

GOTO 90 

END 


WELL YOUR MOTHER 
WEARS KNoBBY тесе..." 


Horserace 


This program simulates a one-mile 
horse race for three-year old 
thoroughbreds. Up to ten people may 
place bets on the race up to $10,000 
each. However, you may only bet to 
win. You place your bet by inputting 
the number of the horse, a comma, and 
the amount of your bet. The computer 
then shows the position of the horses at 
seven points around the track and at 
the finish. Payoffs and winnings are 
shown at the end. 

The program was written by Laurie 
Chevalier while a student at South 
Portland High School. 


XXXXSTARTXXXX 
HORSERACE 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 
3406 
VELCONE TO SOUTH PORTLAND HIGH RACETRACK 
...ÜUNED BY LAURIE CHEVALIER 152 
DO YOU WANT DIRECTIONS? YES 
UP TO 10 HAY PLAY. A TABLE OF ODDS WILL BE PRINTED. ҮШ 
NAY BET ANY + AMOUNT UNDER 100000 DN ONE HORSE. 8 
DURING THE RACE, A HORSE WILL BE SHOUN BY ITS 
NUMBER. THE HORSES RACE DOUN THE PAPER! 
HOU MANY WANT TO BET? 1 
WHEN 7 APPEARS, TYPE NANE 
7 JIM 
HORSE NUMBER opps 
JOE MAU 1 4.44444 i1 
L.B.J. 2 6.66667 31 
NR. WASHBURN 3 20 11 
MISS KAREN 4 40 11 
JOLLY 5 41 
HÜRSE 8 40 31 
JELLY DO NOT ? 40 
MIDNIGHT 8 4 i 
772--------<-------------------------------------. XXXXF IN1SHXXXX 
PLACE YOUR BETS...HORSE 8 THEN AHDUNT 
JIN? 2,5000 
123452478 
XXXXSTARTXXXX XXXXSTARTXXXX 
6 4 
8 7 2 3 
1 
5 ó 
7 
254 
1 
2 
8 
XXXXF INISHXXXX XXXXF INISHXXXX 
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XXXXSTARTXXXX 


жы 


== £A м > 


XXXXF INISHXXXX 


XXXXSTARTXXXX 


fO ох 04 A» 


8 


XXXXF INISHXXXX 


XXXXSTARTXXXX 
570 FOR Н=1 T08 
580 PRINT 06002, N R/DOD ;" 11" 
590 NEXT N 
40ӘРЕІНТ"-----------------.................................. 
610 PRINT "PLACE YOUR BETS.. HORSE # THEN AMOUNT" 
620 FOR Ј=1 TOC 
630 PRINT ШО; 
640 INPUT QD, PCI 
650 IF РОЈ) СІ THEN 670 
460 IF P(J)<100000 THEN 690 
470 PRINT" YOU CAN’T DO THAT!" 
680 GOTO 630 
690 NEXT J 
700 PRINT 
710 PRINT"! 234 5 6 2 6" 
720 PRINT"XXXXSTARTXXXX" ; 


47 230 FOR I=! TON 
3 740 LET H=l 
750 LET МІ) =н 
8 760 LET YORHIDSINTOOOSRNDOD +1) 


770 IF Y(4(I))410 THENB60 
780 LET S=INT(R/D(1)+.5) 
290 IF Y(H(1))48*17 THEN 880 
2 800 IF Y(H(ID))S*37 THEN 900 
810 IF Y(B(1))<S+57 ТНЕН?20 
820 IF Y(B(1))<77+5 THEN940 
5 830 IF Y(M(I))S*92 THEN? 60 
XXXXF INISHXXXX 840 LET Y(M(I))=? 
850 GOTO 970 
860 LET Y(M(I))=1 
--------......................1........... 870 0070 970 
880 LET Y(M(T))=2 


THE RACE RESULTS ARE: 890 GOTO 970 
900 LET Y(H(I))=3 
+ PLACE HORSE NO. 1 AT 4.44444 :1 910 GOTO 970 
920 LET Y(H(1))74 
2 PLACE HORSE NO. 8 AT 4:1 930 GOTO 970 
940 LET Ү(Н(1))=5 
3 PLACE HORSE NO. 5 AT 4 dd 950 GOTO 970 
960 LET YCH(1))=6 
4 PLACE HORSE NO. 2 AT 6.66667 #1 970 NEXTI 
980 LET HI 
5 PLACE HORSE NO. 6 AT 40 :l 990 FOR 121708 
1000LET 5(Н(1))=5(Н(1))+Ү(Н(1)) 
6 PLACE HORSE WO. 3 AT 20 :1 1010 NEXTI 
1020 LET I=1 
? PLACE HORSE NO. 7 AT 40:1 1030 FOR L=1 108 
1040 ЕОКІ=1Т0 B-L 
8 PLACE HORSE HO. 4 AT 40 11 1050 IF S(MCE))<SCH(T#1)) THEN. 1090 
DO YOU WANT TO BET ON THE NEXT RACE? 1080 LET H=MCT) 
? м 1070 LET BODEN 1) 
1080 LET M(I+1)=H 
100 PRINT TAB(31): "HORSERACE" 1090 NEXT I 
110 PRINT TAB(IS)S"CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 1100 NEXT L 
120 PRINT:PRINT:PRINT 1110 LET T=S(M(B)) 
210 DIN 508) T20F0R Ist Т08 
220 PRINT"UELCOME TO SOUTH PORTLAND HIGH RACETRACK" 1130 LET В=5(Н(1))-5(М(1-1)) 
230PRINT" ++ OWNED BY LAURIE CHEVALIER” 1140 IF B=0 THEN 1190 
240 PRINT "DO YOU UANT DIRECTIONS"; 1150 FOR А=1 TO B 
250 INPUT X$ 1160 PRINT 
260 IF X$z"NO" THEN320 101701F 504002227. THEN1240 
270PRINT"UP TO 10 MAY PLAY. А TABLE OF ODDS WILL BE PRINTED, YOU" 1180 NEXT A 
280 PRINT"HAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE." 1190 PRINT КІ); 
290 PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITS" 1200 NEXT 1 
300 PRINT"NUHBER. THE HORSES RACE DOWN THE PAPER!" 1210 FOR A=1 TO 28-T 
310 PRINT 1220 PRINT 
320 PRINT "HOW MANY WANT TO BET"; 1230 NEXT A 
330 INPUT C 1240 PRINT"XXXXFINISHXXXX" 
340 PRINT "WHEN ? APPEARS,TYPE НАМЕ" 1242 PRINT 
350 FOR Az! TO C 1243 PRINT 
350 INPUT VSIA) 1244 PRINT "--------------------------.-................. " 
370 NEXT A 1245 PRINT 
380 PRINT 1250 IF Т<28 THEN 720 
390 PRINT"HORSE", , "NUMBER", "0005" 1270 PRINT "THE RACE RESULTS ARE:" 
400 PRINT 1272 LET 29:1 
410 FOR 131 70 8: S(I)=0: NEXT I 1280 FOR 1-8 TD ISTEP-1 
420 LET R=0 1290 LET F=H(I) 
430 FOR A=1 TO 8 1300 PRINT 
440 LET D(AD=INT(TOSRND(1)41) 1310 PRINT Z9;"PLACE HORSE NO.";F,"AT ";R/D(F) ;" c1" 
450 NEXT A 1312 LET 2952941 
460 FOR A=1T0 B 1320 NEXT I 
470 LET R=R+D(A) 1330 FOR J=1 TOC 
480 NEXT A 1340 IF Q(D HOD). THEN 1370 
490 LET ¥$(1)="J0E MAU" 1380LET N=Q(J) 
500 LET U$(2)z"L. B. J." 1355 PRINT 
510 LET V$(3)2" HR. WASHBURN" 1360 PRINT U$(J);" WINS $"(R/D(N))*P (J) 
520 LET V$(4)-"HISS KAREN” 1370 NEXT J 
530 LET V$(5)s"JOLLY" 1372 PRINT “00 YOU WANT TO BET ON THE NEXT RACE?" 
540 LET 0606) "HORSE" 1374 INPUT "YES OR N0";0$ 
550 LET V$¢7)="JELLY DO NOT" 1376 IF 0$="YES" THEN 380 
560 LET ¥$(8)="NIDNIGHT” 1380 END 
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 Hurkle 


Нигкіе? A Hurkle is a happy beast 
and lives in another galaxy on a planet 
named Lirht that has three moons. 
Hurkle are favorite pets of the Gwik, the 
dominant race of Lirht and ... well, to 
find out more, read "The Hurkle is a 
Happy Beast," a story in the book A 
Way Home by Theodore Sturgeon. 

In this program a shy hurkle is hiding 
on a 10 by 10 grid. Homebase is point 
0,0 in the Southwest corner. Your 
guess as to the gridpoint where the 
hurkle is hiding should be a pair of 
whole numbers, separated by a com- 
ma. After each try, the computer will 
tell you the approximate direction to go 
look for the Hurkle. You get five 
guesses to find him; you may change 
this number in Line 110, although four 
guesses is actually enough. 

This program was written by Bob 
Albrecht of People's Computer Com- 


pany. 


HURKLE 
CREATIVE COMPUTING  HORRISTOUN, NEU JERSEY 


A HURKLE IS HIDING ON 4 10 BY 10 GRID. HOHEBASE 

QN THE GRID IS POINT 0,0 AND ANY GRIDPOINT IS A 
PAIR OF UHOLE NUMBERS SEPARATED BY А COMMA. TRY TO 
GUESS THE HURKLE’S SRIDPOINT. YOU GET 5 TRIES. 
AFTER EACH TRY, I VILL TELL YOU THE APPROXIHATE 
DIRECTION TO 80 TO LOOK FOR THE HURKLE. 


GUESS M 1 ? 5,5 
GO SOUTHEAST 


GUESS M 2 7 6,4 
80 SQUTH 


GUESS # 3 ? 4,3 
60 SOUTH 


GUESS ü 4 7 4,2 
YOU FOUND HIM IN 4 GUESSES! 
LET’S PLAY AGAIN. HURKLE IS HIDING. 


GUESS В 1 ? 5,5 
GO NÜRTHUEST 


GUESS M 2 ? 3,8 
GO NORTHUEST 


GUESS 8 3 7 2,9 


YOU FOUND HIM IN 3 GUESSES! 


] 
° ma 
M EN 
, EN 
cE 
WEST 5 
; EN 
; EN 
; EN 
' EN 
o EN 
0 
HOMEBASE 


10 PRINT TAB(33);“HURKLE® 
20 PRINT ТАВ(15); "CREATIVE COMPUTING HORRISTOUN, NEW JERSEY" 
20 PRINT:PRINT:PRINT 


110 
120 
210 
220 
230 
240 
250 
260 
270 
280 
285 
286 
310 
320 
330 
340 
350 
360 
370 
380 
410 
420 
430 
440 
450 
460 
470 
$00 
510 
520 
540 
610 
620 
630 
640 
650 
660 
670 
680 
490 
200 
29 
720 
230 
999 
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N=5 
6-10 

PRINT 

PRINT "A HURKLE IS HIDING ON A";0;"BY";G;"ORID. HOMEBASE” 
PRINT "ОН THE GRID IS POINT 0,0 AND ANY GRIDPOINT IS А" 
PRINT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO" 
PRINT "GUESS THE HURKLE^S GRIDPOINT. YOU GET";N;"TRIES." 
PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 
PRINT “DIRECTION TO 60 TO LOOK FOR THE HURKLE." 

PRINT 

Az INT(GSRNDCL)) 

Bz1NT(GSRNDCL)) 

FOR Ket TON 

PRINT "GUESS 8";K; 

INPUT X,Y 

IF ABS(X-A)+ABS(Y-B)=0 THEN 500 

ВЕН PRINT INFO 

BOSUB 610 

PRINT 

NEXT K 

PRINT 

PRINT "BORRY, THATS" SN; "GUESSES." 

PRINT "THE HURKLE IS AT ";A;",";B 

PRINT 

PRINT "LET^B PLAY AGAIN. HURKLE IS HIDINB." 

PRINT 

GOTO 285 

REN 

PRINT 

PRINT "YOU FOUND HIM IN";H;"GUESSES!" 

GOTO 440 

PRINT "80 *; 

IF Y=B THEN 670 

IF Y<B THEN 660 

PRINT "SOUTH"; 

60 TO 670 

PRINT "NORTH"; 

IF Хей THEN 720 

IF ХА THEN 710 

PRINT "WEST"; 

80 TD 720 

PRINT "EAST"; 

PRINT 


RETURN 
END 


This program tests your fundamental 
knowledge of kinematics. It presents a 
simple problem: a ball is thrown 
straight up in the air at some random 
velocity. You then must answer three 
questions about the flight of the ball: 

1. How high will it go? 

2. How long until it returns to earth? 

3. What wil! be its velocity after a 

random number of seconds? 

The computer evaluates your perfor- 
mance; within 1596 of the correct 
answer is considered close enough. 
After each run, the computer gives you 
another problem until you interrupt it. 

KINEMA was shortened from the 
original Huntington Computer Project 
Program, KINERV, by Richard Pav of 
Patchogue High School, Patchogue, 
New York. 


KINEMA 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


10 PRINT TABC33) ; "KINENA" 


A BALL IS THROUN UPWARDS AT 35 METERS PER SECOND. 20 PRINT TAB(15) "CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY" 
30 PRINT: PRINT: PRINT 
HOW HIGH WILL IT GO (IN METERS)? 10 100 PRINT 
NOT EVEN CLOSE.... 105 PRINT 
CORRECT ANSWER IS 41.25 106 8:0 
110 V=S+INT(3S*RND(1)) 
HOW LONG UNTIL IT RETURNS (IN SECONDS)? 7 111 PRINT "A BALL IS THROWN UPWARDS AT";U;"HETERS PER SECOND." 
CLOSE ENOUGH. 112 PRINT 
CORRECT ANSUER IS 7 115 А=,05*%%^2 
116 PRINT "HOW HIGH WILL IT GO (IN METERS)"; 
UHAT WILL ITS VELOCITY BE AFTER 4.5 SECONDS? 20 117 GOSUB 500 
NOT EVEN CLOSE.... 120 А-У/5 
CORRECT ANSWER IS -10 122 PRINT "HOU LONG UNTIL IT RETURNS (IN SECONDS)"; 


124 GOSUB 500 
130 T4 INT(2$USRNDULI)/10 


1 RIGHT OUT OF 3. 132 A=V-10*T 
134 PRINT "WHAT VUILL ITS VELOCITY BE AFTER";T;"SECONDS"; 
A BALL IS THROWN UPWARDS AT 25 METERS PER SECOND. 136 GOSUB 500 
140 PRINT 
HOW HIGH UILL IT GO (IN METERS)? 45 150 PRINT Q;"RIGHT QUT OF 3."; 
NOT EVEN CLOSE.... 160 IF Q<2 THEN 100 
CORRECT ANSWER IS 31.25 170 PRINT " WOT BAD." 
180 GOTO 100 
HOW LONG UNTIL IT RETURNS (IN SECONDS)? 4 500 INPUT 6 
NOT EVEN CLOSE.... 502 IF ABS((G-A)/A)<.15 THEN 510 
CORRECT ANSWER IS 5 504 PRINT “NOT EVEN CLOSE...." 
$06 GOTO 512 
WHAT WILL ITS VELOCITY BE AFTER 3.2 SECONDS? 12 810 PRINT "CLOSE ENOUGH." 
NOT EVEN CLOSE.... 511 0=0+1 
CORRECT ANSUER IS -7 512 PRINT "CORRECT ANSWER IS "А 
$20 PRINT 
930 RETURN 
9 RIGHT OUT OF 3. 999 END 


95 


This is one of the more comprehen- 
sive, difficult, and interesting land and 
resource management games. (If 
you've never played one of these 
games, start with HAMMURABI.) 
In this game, you are Premier of 
Setats Detinu, a small communist 
island 30 by 70 miles long. Your job is to 
decide upon the budget of the country 
and distribute money to your coun- 
trymen from the communal treasury. 
The money system is Rallods; each 
person needs 100 Rallods per year to 
survive. Your country's income comes 
from farm produce and tourists visiting 
your magnificent forests, hunting, YOU NOU HAVE 59907 RALLODS IN THE TREASURY. 
fishing, etc. Part of your land is farm 502 COUNTRYMEN, AND 2000 50. MILES OF LAND. 


land but italso has an excellent mineral THIS YEAR INDUSTRY WILL BUY LAND FOR 103 RALLODS PER 50. NILE. 
content and may be sold to foreign LAND CURRENTLY COSTS 10 RALLODS PER SQ. MILE TO PLANT. 


industry for strip mining. Industry 
import and support their own workers. 
Crops cost between 10 and 15 Rallods 
per square mile to plant, cultivate, and 
harvest. Your goal is to complete an 
eight-year term of office without major 


HOW MANY 50. MILES DO YOU WISH TO SELL TO INDUSTRY? 200 

HOW HANY RALLODS UILL YOU DISTRIBUTE TO YOUR COUNTRYHEN? 50200 
HOW MANY 50. MILES DO YOU WISH TO PLANT? 500 

HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 10000 


212 WORKERS САНЕ TO THE COUNTRY AND 396 COUNTRYMEN САМЕ TO THE ISLAND. 


mishap. A word of warning: itisn't easy! 
The author of this program is James 
A. Storer who wrote it while a student at 


OF 500 SQ. MILES PLANTED, YOU HARVESTED 340 SQ. HILES OF CROPS. 
(DUE TO AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.) 
MAKING 17510 RALLODS. 


Lexington High School. YOU MADE 8179 RALLODS FROM TOURIST TRADE. 
YOU WOW HAVE 65634 RALLODS IN THE TREASURY. 
89B COUNTRYMEN, 212 FOREIGN WORKERS, ANB 1800 SQ. MILES OF LAND. 
THIS YEAR INDUSTRY WILL BUY LAND FOR 98 RALLODS PER 50. MILE. 
LAND CURRENTLY COSTS 13 RALLODS PER SD. WILE TO PLANT. 

KING 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY HOW HANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY? 0 
HOW HANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYMEN? 89800 

THINK AGAIN, YOU'VE ONLY 65434 RALLODS IN THE TREASURY 

HOW HANY RALLODS WILL YOU DISTRIBUTE TO YOUR COUNTRYMEN? 40000 
HOU HANY SQ. MILES DO YOU WISH TO PLANT? 400 
HOW HANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL? 6000 


DO YOU WANT INSTRUCTIONS? YES 


498 COUNTRYMEN DIED OF STARVATION 
YOU ШЕКЕ FORCED TO SPEND 4482 RALLODS ON FUNERAL EXPENSES 
236 COUNTRYMEN САМЕ TO THE ISLAND. 


CONGRATULATIONS! YOUVE JUST BEEN ELECTED PREMIER OF SETATS 
DETINU, A SHALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR 


JOB IS TO DECIDE UPON THE COUNTRY’S BUDGET AND DISTRIBUTE 
MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY. OF 600 SQ. MILES PLANTED, YOU HARVESTED 448 50. MILES OF CROPS. 


THE HONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100 (DUE TO AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.) 

RALLODS PER YEAR TO SURVIVE. YOUR COUNTRY’S INCOME COMES MAKING 21952 RALLODS. 

FROH FARM PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT YOU HADE 6068 RALLODS FROM TOURIST TRADE. 

FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND DECREASE BECAUSE AIR POLLUTION IS KILLING GAME BIRD POPULATION. 
WHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAY BE SOLD 

TO FOREIGN INDUSTRY (STRIP MINING) WHO IMPORT AND SUPPORT 

THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND 15 RALLODS PER 498 COUNTRYMEN DIED IN ONE YEARII!!! 


50. MILE TO PLANT. 


YOUR GOAL IS TO COMPLETE YOUR 8 YEAR TERM OF OFFICE. 


GOOD LUCK. 


DUE TO THIS EXTREHE MISMANAGEMENT YOU HAVE NOT ONLY 
BEEN IHPEACHED AND THROWN QUT OF OFFICE BUT YOU 
HAVE ALSO GAINED A VERY BAD REPUTATION. 
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1 PRINT ТАВ(34); "KING" 215 IF H<O THEN 200 

2 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 220 IF Н<=р-1000 THEN 300 

З PRINT:PRINT:PRINT 230 PRINT " THINK AGAIN, YOU'VE QNLY";D-1000,"SQ. MILES OF FARM LAND" 
4 PRINT "DO YOU WANT INSTRUCTIONS"; 240 IF XO0 THEN 200 

5 INPUT Z$ 250 PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE" 

6 N5s8 280 PRINT “FOREST LAND IS UNECONOHICAL TO STRIP HINE DUE TO TREES," 

10 IF LEFTS(Z$,1)="N" THEN 47 270 PRINT "THICKER TOP SOIL, ETC.)" 

11 IF Z$-"AGAIN" THEN 1960 280 X=1 

12 PRINT:PRINT:PRINT 29? GOTO 200 


20 PRINT "CONGRATULATIONS! YOU^VE JUST BEEN ELECTED PREMIER OF SETATS" — 300 DsINT(D-H) 
22 PRINT "DETINU, A SHALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR" — 310 A=INT(A+(H*U)) 


24 PRINT “JOB IS TQ DECIDE UPON THE COUNTRY’S BUDGET AND DISTRIBUTE" 320 PRINT “HOW MANY RALLODS WILL YOU DISTRIBUTE TQ YOUR COUNTRYMEN”; 
26 PRINT "MONEY TO YOUR COUNTRYMEN FROM THE COMMUNAL TREASURY.” 340 INPUT I 

28 PRINT "THE MONEY SYSTEM IS RALLODS, AND EACH PERSON NEEDS 100" 342 IF 100 THEN 320 

30 PRINT "RALLODS PER YEAR TO SURVIVE., YOUR COUNTRY^S INCOME CONES" 350 IF I«A THEN 400 

32 PRINT “FROM FARM PRODUCE AND TOURISTS VISITING YOUR HAGNIFICENT" 360 IF [=A THEN 380 


34 PRINT “FORESTS, HUNTING, FISHING, ETC. HALF YOUR LAND IS FARM LAND" 379 PRINT " THINK AGAIN, YOU'VE ONLY";A;"RALLODS IN THE TREASURY" 
36 PRINT “WHICH ALSO HAS AN EXCELLENT MINERAL CONTENT AND HAY BE SOLD" 375 6070 320 I 


38 PRINT “TO FOREIGN INDUSTRY (STRIP NINING) UHO IMPORT AND SUPPORT" 380 Ј=0 

А0 PRINT “THEIR OWN WORKERS. CROPS COST BETWEEN 10 AND 15 RALLODS PER" 390 К=0 

42 PRINT "SQ. MILE TO PLANT." 200 395 aso 

44 PRINT “YOUR GOAL IS TO COHPLETE YOUR";NS;"YEAR TERM OF OFFICE.” 399 BOTO 1000 

46 PRINT “GOOD LUCK." 400 AsINT(A-I) 

47 PRINT 410 PRINT "HOW MANY SQ. HILES DO YOU WISH TO PLANT"; 

50 A=INT(60000+(1000#RND(1))-(1000#RND(1))) 420 INPUT J 

85 B=INT(500+(10#RND(1))-(10*RND(1))) 421 IF J€0 THEN 410 

45 D=2000 422 IF J<=B*2 THEN 426 

100 U=INT(10#RND(1)+95) 423 PRINT " SORRY, BUT EACH COUNTRYHAN CAN ONLY PLANT 2 50. MILES" 

102 PRINT 424 GOTO 410 

105 PRINT "YOU NOU HAVE";A;"RALLODS IN THE TREASURY.” 426. IF J<=D-1000 THEN 430 

110 PRINT INTCB)S"COUNTRYHEN, "3 427 PRINT " SORRY, BUT YOUVE QNLY";D-1000;"50. MILES OF FARM LAND" 

115 UP- INTCCURRDCD /2) 8106100) 428 GOTO 410 

120 IF C=0 THEN 140 430 ULSINT( JU?) 

130 PRINT INT(C) "FOREIGN UORKERS, "; 435 IF UI<A THEN 500 

140 PRINT "AND";INT(D); "50. MILES OF LAND." 440 IF Шей THEN 490 

150 PRINT "THIS YEAR INDUSTRY WILL BUY LAND FOR";U; 450 PRINT" THINK AGAIN, YOUVE ONLY";A;"RALLODS LEFT IN THE TREASURY" 

152 PRINT "RALLODS PER SQ. HILE." 460 GOTO 410 

155 PRINT "LAND CURRENTLY COSTS";¥9:"RALLODS PER SQ. MILE TO PLANT." 490 K=0 

162 PRINT 495 A=0 

200 PRINT “HOU HANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY"; 499 GOTO 1000 

210 INPUT H 500 A=A-Ut 
510 PRINT “HOW HANY RALLODS DO YOU MISH Т0 SPEND ON POLLUTION CONTROL"; 
520 INPUT K 


522 IF K<O THEN 510 

530 IF К<-А THEN 1000 

340 PRINT " THINK AGAIN, YOUVE ONLY’ SA;"RALLODS REHAIHING" 
550 GOTO 510 

600 IF Н<20 THEN 1002 

602 IF 1550 THEN 1002 

604 IF J<>0 THEN 1002 

606 IF K<>0 THEN 1002 

609 PRINT 

612 PRINT "GOODBYE." 

614 PRINT "(IF YOU WISH TO CONTINUE THIS GAME АТ A LATE DATE, ANSWER” 
616 PRINT ““AGAIN’ WHEN ASKED IF YOU WANT INSTRUCTIONS, AT THE" 
618 STOP 

1000 6070 500 

1002 PRINT 

1093 PRINT 

1010 A=INT(á-K) 

1020 А4=А 

1100 IF INT(I/100-B)2-0 THEN 1120 

1105 IF 1/100<50 THEN 1700 

1110 PRINT ІНГІВ-(1/100)); "COUNTRYMEN DIED OF STARVATION" 
1120 FISINT(RNDCTISC2000-D)) 

1122 IF К<25 THEN 1130 

1125 ҒізІНТІРІ/(К/25)) 
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1130 IF F1<=0 THEN 1150 

1140 PRINT FI;"COUNTRYMEN DIED OF CARBON-MONOXIDE AND DUST INHALATION" 
1150 IF INT(CI/1000-B)40 THEN 1170 

1160 IF Fi>d THEN 1180 

1165 GOTO 1200 

1170 PRINT " — YOU WERE FORCED TO SPEND";INTL(F*(B-CI/1000) 29); 
1172 PRINT "RALLODS ON FUNERAL EXPENSES" 

1174 B3sINTCFT*(B-(CI/1000)) 

1175 A=INT(A-((F1+(B-(I/100)))%9)) 

1178 GOTO 1185 

1180 PRINT " YOU WERE FORCED TO SPEND";INT(FI49);"RALLODS QN "; 
1181 PRINT “FUNERAL EXPENSES" 

1182 B5=F1 

1183 А-ІНТ(А-(Ғ1а%9)) 

1185 IF А>=0 THEN 1194 

1187 PRINT " INSUFFICIENT RESERVES TO COVER COST - LAND WAS SOLD" 
1189 D=INT(D+(A/U)) 

1190 A=0 

1194 BEINT(B-B5) 

1200 IF Н-0 THEN 1250 

1220 CIFINTC H+ (RND(1)#10)-(RND(1)920)) 

1224 IF (20 THEN 1230 

1226 С1=С1+20 

1230 PRINT Ci;"WORKERS CAHE TO THE COUNTRY AND"; 


1250 PEEIRTC(CI/100-B)/10)4(K/25)-( (2000-0) /50)-(F1/2)) 1596 STOP 

1255 PRINT ABS(PI); "COUNTRYMEN "3 1600 PRINT 

1260 IF Р1<0 THEN 1275 1602 PRINT 

1285 PRINT "CANE TO"; 1610 PRINT BS;"COUNTRYNEN DIED IN ONE YEAR!!1!!!" 

1270 GOTO 1280 1615 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY" 
1275 PRINT "LEFT"; 1620 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU" 

1280 PRINT " THE ISLAND." 1622 Mó-INT(NDCO #10) 

1290 B=INT(B+P1) 1625 IF Hé«-3 THEN 1470 

1292 C=INT(C+C1) 1630 IF Má<=á THEN 1680 

1308 U2zINT(((2000-D)9 CCRNDCL)1.52/2))) 1635 IF HáCz10 THEN 1690 

1310 IF C=0 THEN 1324 1470 PRINT "ALSO HAD YOUR LEFT EYE GÜUGED QUT." 

1320 PRINT " OF";INT(J);"SQ. MILES PLANTED,"; 1672 GOTO 1590 

1324 IF J>U2 THEN 1330 1880 PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION." 

1326 U2=J 1682 GOTO 1590 

1330 PRINT " YOU HARVESTED"; INT(.J-U2) ;"S0. MILES OF CROPS.” 1690 PRINT “HAVE ALSO BEEN DECLARED NATIONAL FINK." 

1340 IF U2=0 THEN 1370 1692 GOTO 1590 

1344 IF Ti>=2 THEN 1370 1700 PRINT 

1350 PRINT " (DUE TO "; 1702 PRINT 

1355 IF Tis0 THEN 1345 1710 PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 
1380 PRINT "INCREASED "; 1715 PRINT “WERE ELECTED TO OFFICE. THE PEOPLE (RENAINING)" 

1345 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)" 1720 PRINT "НАТЕ YOUR GUTS." 

1320 Q=INT((J-U2)*(8/2)) 1730 GOTO 1570 

1380 PRINT " MAKING"; IHT(Q);"RALLODS." 1800 IF В5-Е1<2 THEN 1515 

1390 ASINTCA+Q) 1807 PRINT 

1400 VISINT(((B-P1)#22)4(RND(1) $5000) 1815 PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID" 
1405 U2zINT((2000-D)515) 1820 PRINT "NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED" 
1410 PRINT " YOU HADE";ABS(INT(UT-U2));"RALLODS FROM TOURIST TRADE." 1825 PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE" 
1420 IF V2-0 THEN 1450 1830 PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUICIDE." 

1425 IF V1-V2>=U3 THEN 1450 1835 PRINT "THE CHOICE IS YOURS." 

1430 PRINT “ DECREASE BECAUSE "; 1840 PRINT "IF YOU CHOOSE THE LATTER, PLEASE TURN OFF YOUR COMPUTER" 
1435 G1=10eRNDGT) 1845 PRINT "BEFORE PROCEEDING." 

1440 IF 61<=2 THEN 1460 1850 GOTO 1590 

1442 IF 61424 THEN 1465 1900 PRINT 

1444 IF Gi<=6 THEN 1470 1920 PRINT "CONGRATULATIONS!I!!TITITIPEM рея 

1446 IF Gi<=8 THEN 1475 1925 PRINT “YOU HAVE SUCCESFULLY COMPLETED YOUR";NS;"YEAR ТЕКИ" 
1448 IF 614210 THEN 1480 1930 PRINT "OF OFFICE. YOU WERE, OF COURSE, EXTREMELY LUCKY, BUT" 
1450 V3-eINT(A?U3) 1935 PRINT “NEVERTHELESS, IT^S QUITE AN ACHIEVEMENT. GOOBYE AND 6000" 
1451 ASINT(AHU3) 1940 PRINT LUCK - YDU LL PROBABLY NEED IT IF YOU'RE THE TYPE THAT" 
1452 GOTO 1500 1945 PRINT "PLAYS THIS GAME." 

1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION." 1950 GOTO 1590 

1462 БОТО 1450 1960 PRINT "HOW KANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED"; 
1485 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION." 1981 INPUT X5 

1467 GOTO 1450 1962 IF Х5<0 THEN 1590 

1470 PRINT “MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION." 1963 IF Х5<8 THEN 1969 

1472 GOTO 1450 1965 PRINT " СОКЕ ON, YOUR TERM IN OFFICE IS ONLY";NS;"YEARS." 
1475 PRINT “UNPLEASANT SHOG IS DISCOURAGING SUN BATHERS." 1967 GOTO 1960 

1472 GOTO 1450 1969 PRINT "HOW HUCH DID YOU HAVE IN THE TREASURY"; 

1480 PRINT "HOTELS ARE LOOKING SHABBY DUE TO SKOG GRIT.” 1970 INPUT А 

1482 GOTO 1450 1971 IF ACO THEN 1590 

1500 IF B52200 THEN 1600 1925 PRINT "HOU HANY COUNTRYMEN"; 

1805 IF B<343 THEN 1700 1976 INPUT B 

1510 IF (44/100)25 THEN 1800 1977 IF B<O THEN 1590 

1515 IF СУВ THEN 1550 1980 PRINT “HOW MANY WORKERS": 

1520 IF N5-1=X5 THEN 1900 1981 INPUT C 

1545 GOTO 2000 1982 IF С<0 THEN 1590 

1550 PRINT 1990 PRINT "HOW MANY 50. MILES OF LAND"; 

1552 PRINT 1991 INPUT D 

1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" 1992 IF D<O THEN 1590 

1562 PRINT "OF COUNTRYMEN. AS A HAJORITY THEY HAVE REVOLTED AND" 1993 IF 022000 THEN 1996 

1564 PRINT "TAKEN QVER THE COUNTRY." 1994 IF 121000 THEN 100 

1570 IF RND(1)<=.5 THEN 1580 1996 PRINT " CONE ON, YOU STARTED WITH 1000 SQ. MILES OF FARH LAND" 
1874 PRINT "YOU HAVE BEEN THROWN QUT OF OFFICE AND YOU ARE NOU" 1997 PRINT " AND 10000 50. KILES OF FOREST LAND." 

1576 PRINT "RESIDING IN PRISON.” 1998 GOTO 1990 

1578 GOTO 1590 2000 X5-X5*1 

1580 PRINT "YOU HAVE BEEN ASSASSINATED." 2020 85-0 

1590 PRINT 2040 GOTO 100 

1592 PRINT 2046 END 
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Letter 


LETTER is similar to the game 
GUESS in which you guess a number 
chosen by the computer, in this 
program, the computer picks a random 
letter of the alphabet and you must 
guess which one it is using the clues 
provided as you go along. It should not 
take you more than five guesses to get 
the mystery letter. 

The program which appears here is 
loosely based onthe original written by 
Bob Albrecht of People's Computer 
Company. 


10 PRINT TAB(G3); "LETTER" 


20 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT:PRINT:PRINT 

100 PRINT "LETTER GUESSING GAME": PRINT 

210 PRINT "I'LL THINK OF А LETTER OF THE ALPHABET, A TO Z." 
220 PRINT "TRY TO GUESS HY LETTER AND I'LL GIVE YOU CLUES” 
230 PRINT “AS TO HOW CLOSE YOU'RE GETTING TO МҮ LETTER." 
310 Ls6S*INT(RNDCOU 26) 

320 G=0 

340 PRINT: PRINT "Q.K., I HAVE A LETTER. START GUESSING." 
410 PRINT: PRINT "WHAT IS YOUR BUESS"; 

420 б=0+1 

430 INPUT A$: A=ASC(A$); PRINT 

440 IF A=L THEN 500 

450 IF ADL THEN 480 

460 PRINT "TOO LOU. TRY A HIGHER LETTER.": GOTO 410 

480 PRINT “TOO HIGH. TRY A LOWER LETTER.": GOTO 410 

500 PRINT: PRINT “YOU GOT ІТ IN“;G;*GUESSESII" 

$04 IF 6<=5 THEN 508 


506 PRINT "BUT IT SHOULDN’T TAKE HORE THAN 5 GUESSES!": GOTO 515 


508 PRINT “GOOD JOB 11111" 
510 FOR Nz1 TO 15: PRINT CHR$(7);: NEXT N 
515 PRINT 


520 PRINT "LET^S PLAY AGAIN....." 
$30 GOTO 310 
999 END 


SYSTEM RESPONSE MAY BE SLOW AT TIHES. CURRENTLY RUNNING ON 192K OF HEHORY. 


READY 


LETTER 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


LETTER GUESSING GAHE 

I'LL THINK OF A LETTER OF THE ALPHABET, A TO Z. 
TRY TO GUESS HY LETTER AND I'LL GIVE YOU CLUES 
AS TO HOU CLOSE YOU'RE GETTING TO MY LETTER. 
O.K., I HAVE à LETTER. START GUESSING. 

WHAT IS YOUR GUESS? N 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? F 

YOU GOT 17 IN 2 GUESSES! ! 

GOOD JOB !t!!! 

LET^S PLAY AGAIN..... 

0.К., 1 HAVE A LETTER. START GUESSING. 

WHAT IS YOUR GUESS? H 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? F 

TOO HIGH. TRY A LOWER LETTER. 

WHAT IS YOUR GUESS? C 

TOO LOU. TRY А HIGHER LETTER. 

WHAT IS YOUR GUESS? E 

T00 HIGH. TRY A LOUER LETTER. 

WHAT IS YOUR GUESS? D 

YOU GOT IT ІН 5 GUESSESI! 

GOOD JOB !!!!! 

LET^S PLAY AGAIN..... 

8.К., I HAVE A LETTER. START GUESSING. 

WHAT IS YOUR GUESS? 


BREAK IN 430 


The Game of Life was originally 
described-in, Scientific American, Oc- 
tober 1970; in an article by Martin 
Gardner. The game itself was 
originated by John Conway of Gonville 
and Caius College, University of Cam- 
bridge, England. 

In the "manual" game, organisms 
exist in the form of counters (chips or 
checkers) on alarge checkerboard and 
die or reproduce according to some 
simple genetic rules. Conway's criteria 
for choosing his genetic laws were 
carefully delineated as follows: 


1. There should be no initial pattern for 
which there is a simple proof that the 
population can grow without limit. 

2. There should be initial patterns that 
apparently do grow without limit. 

3.There should be simple initial 
patterns that grow and change for a 
considerable period of time before 
coming to an end in three possible 
ways: fading away completely (from 
overcrowding or from becoming too 
sparse), settling into a stable con- 
figuration that remains unchanged 
thereafter, or entering an oscillating 
phase in which they repeat an 
endless cycle of two or more periods. 


In brief, the rules should be such as 
to make the behavior of the population 
relatively unpredictable. Conway's 
genetic laws are delightfully simple. 
First note that each cell of the checker- 
board (assumed to be an infinite plane) 
has eight neighboring cells, four adja- 
cent orthogonally, four adjacent 
diagonally. The rules are: 


1. Survivals. Every counter with two or 
three neighboring counters survives 
for thé next generation. 

2. Deaths. Each counter with four or 
more neighbors dies (is removed) 
from overpopulation. Every counter 
with one neighbor or none dies from 
isolation. 

3. Births. Each empty cell adjacent to 
exactly three neighbors — no more, 
no fewer — isabirth cell. Acounter is 
placed on it at the next move. 


It is important to understand that all 
births and deaths occur simultaneous- 
ly. Together they constitute a single 
generation or, as we shall call it, a 
"move" in the complete “life history” of 
the initial configuration. 


You will find the population con- 
stantly undergoing unusual, 
sometimes beautiful and always unex- 
pected change. In a few cases the 
society eventually dies out (all 
counters vanishing), although this may 
not happen until after a great many 
generations. Most starting patterns 
either reach stable figures — Conway 
calls them “still lifes” — that cannot 
change or patterns that oscillate 
forever. Patterns with no initial 
symmetry tend to become 
symmetrical. Once this happens the 
symmetry cannot be lost, although it 
may increase in richness. 

Conway used a DEC PDP-7 with a 
graphic display to observe long-lived 
populations. You'll probably find this 
more enjoyable to watch on a CRT than 
a hard-copy terminal. 

Since MITS 8K BASIC does not have 
LINE INPUT, to enter leading blanks in 
the pattern, type a “.” at the start of the 
line. This will be converted to a space 
by BASIC, but it permits you to type 
leading spaces. Typing DONE in- 
dicates that you are finished entering 
the pattern. See sample run. 

Clark Baker of Project DELTA 
originally wrote this version of LIFE 
which was further modified by Steve 
North of Creative Computing. 


LIFE 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


ENTER YOUR PATTERN: 
т. әж 

7.% + 

T. b 

7 DONE 


GENERATION: 0 POPULATION: 7 


v9 


100 


GENERATION: 1 


GENERATION: 2 


GENERATION: 3 


GENERATION: 4 


POPULATION: 8 


POPULATION: 9 


vis 
* * 
Ұз ov 


POPULATION: 10 


* ** 


POPULATION: 12 


GENERATION: 13 POPULATION: 30 GENERATION: 16 POPULATION: 48 GENERATION: 19 POPULATION: 56 


+» * ж 
Pid * 
ж * жж) 
у ә ж « 
* * ә * o a Aog nk oo obo +4 
++ * әз 94% * 9%ж% 8% 99 + 9 ез өз 
И ae + жез» s py * * * * 
з 8 © € see +94% * @ ee owe e 
one vt» * 8 9 з а эз 
з » *. ** *9 ж o6 
* » 
GENERATION: 14 POPULATION: 39 GENERATION: 17 POPULATION: 46 GENERATION: 20 POPULATION: 41 
ж + 
» +94 +04 
oon ээ» 
. ж 
* * ** әз sg эзе 
* $ we sss 9% 
э» * ** 88 *o* $ 4 .. eee ++ 
+ one »* * * ж а 94 ee eee аз 
9 чож эз + ** эз ** at MIN E 
[EMEN + » ч ** 
+ »+ "эз +e 989% — ras 
as ++ 
GENERATION: 15 POPULATION: 37 GENERATION: 18 POPULATION: 54 GENERATION: 21 POPULATION: 67 
* *** 
* 
*** * ж жз 
ж * * * * 
* % 039 ж эз» 
one one 3996 9% 99 00905 зе $ ELI 
ча 9% «өз + eee ++ e+ +3., as 
* * * з є +з ж ove 
es эз ње 46 49 994 фо же эз 98090 BOER 
e 8 s * 8 боз ++ * »» 
»v* +e» * “ж безе ‚ээк 
ee +*+ 996 +o» 
2 PRINT TABIA) "LIFE" 260 IF A(X, Y)<>1 THEN 270 
4 PRINT ТАВ(15); "CREATIVE COMPUTING NORRISTOWN, NEU JERSEY" 261 PRINT TAB(Y);"*"; 
6 PRINT: PRINT: PRINT 282 IF ХХХ THEN X32X 
8 PRINT "ENTER YOUR PATTERH:" 264 IF X>X4 THEN X4=X 
9 Хізін Yi: X2224: 2270 266 IF YXY3 THEN Y3e«Y 
10 DIN 8(24,70),89(24) 268 IF Y>Y4 THEN Y4ay 
20 Cai 270 NEXT Y 
30 INPUT BS(C) 290 NEXT X 
40 IF BS(C)="DONE" THEN B$(CÓs""; GOTO 80 295 FOR Х=Х2+1 TO 24: PRINT: NEXT X 
50 IF LEFTS(B$(C),1)»"," THEN BS(C)=" "+#RIGHT$(B$(C),LEN(B$(C))-1) 299 X1*X3: Х2хХ4: Ү1=ҮЗ: Y2zY4 
60 CxC*1 301 IF X143 THEN X173: 192-1 
70 GOTO 30 303 IF X2222 THEN X2222: 192-1 
80 СаГ-1: 150 305 IF Y143 THEN Ү183: 19-1 
90 FOR X=! TO 6-1 307 IF ¥2>68 THEN Ү2=68: I9«-1 
100 IF LEN(B$(X))>L THEN L=LEN(B$(X)) 309 Раф 
110 NEXT X 500 FOR X=Xt-1 TO X2+1 
120 X1211-6/2 510 FOR ҮзҮ1-1 TO Ү2+1 
130 Y1233-L/2 520 €=0 
140 FOR X31 TO С 520 FOR IsX-1 TO X41 
150 FOR Y=Í TO LEN(BS(X)) 540 FOR J#¥-i TO ҮНІ 
140 IF MIDS(BS(X),Y,12<>" " THEN A(X1+X,Y1+Y)=1:P=P+1 550 IF A(I,J)21 OR ACI,J)=2 THEN C=C+1 
170 NEXT Y 560 NEXT J 
180 NEXT X 570 НЕХТ I 
200 PRINT:PRINT:PRINT $80 IF A(X,Y)-0 THEN 810 
210 PRINT "GEHERATION:";G,"POPULATION:";P;: IF I9 THEN PRINT "INVALID"; 590 IF C43 OR (24 THEN A(X,Y)=2: GOTO 400 
215 Х3з24: Ү3в70; Хаж}: YAz1: Pad 595 Р=Р+1 
220 б=6+1 600 GOTO 420 
225 FOR X=} TO X1-1: PRINT: NEXT X 610 IF C23 THEN A(X, Yeas P=P+1 
230 FOR X«X1 TO X2 620 NEXT Y 
240 PRINT 630 NEXT X 
250 FOR Y=Y1 TO Y2 635 Х1=Х1-1: ТізҮ1-1: Х2=Х2+1: Y22Y241 
253 IF A(X,Y)=2 THEN А4 (Х,Ү)х0: GOTO 270 640 GOTO 210 
256 IF A(X,Y)=3 THEN А(Х,Ү)=1: GOTO 261 650 END 
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Life for Two 


LIFE-2 is based on Conway's game 
of Life. You must be familiar with the 
rules of LIFE before attempting to play 
LIFE-2. 

There are two players; the game is 
played on a 5x5 board and each player 
has a symbol to represent his own 
pieces of ‘life.’ Live cells belonging to 
player 1 are represented by * and live 
cells belonging to player 2 are repre- 
sented by the symbol ‘#’. 

The # and “аге regarded as the same 
except when deciding whether to 
generate a live cell. An empty cell 
having two # and one "~ for neighbors 
will generate a "f, i.e. the live cell 
generated belongs to the player who 
has the majority of the 3 live cells 
surrounding the empty cell where life is 
to be generated, for example: 


2 PRINT TABCIS);"LIFE2" 


A new cell will be generated at (3,3) 
which will be a ‘#’ since there are two # 
and one ‘*’ surrounding. The board will 
then become: 


On the first move each player 
positions 3 pieces of life on the board 
by typing in the co-ordinates of the 
pieces. (In the event of the same cell 
being chosen by both players that cell 
is left empty.) 

The board is then adjusted to the 
next generation and printed out. 

On each subsequent turn each 
player places one piece on the board, 
the object being to annihilate his 
opponent's pieces. The board is ad- 
justed for the next generation and 
printed out after both players have 
entered their new piece. 

The game continues until one player 
has no more live pieces. The computer 
will then print out the board and 
declare the winner. 

The idea for this game, the game 
itself, and the above write-up were 
written by Brian Wyvill of Bradford 
University in Yorkshire, England. 


380 NCJ,K)210001 H3=M3+ 3; PRINT " WH”; 


365 RETURN 


4 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOUN, NEW JERSEY" 399 N(J,K)»01 PRINT “ — "5s RETURN 
500 PRINT TAB(10);"U.B. LIFE GAME" 


8 PRIMT:PRINTIPRINT 
7 DIN Н(&,6),К(18),А(16),Х(2),Ү(2) 


8 DATA 3,102,103,120,130,121, 012,111, 12 


505 "2x0: 83-0 
510 FOR J=1 TO 5 


9 DATA 21,30,1020,1030,1011,1021,1003,1002,1012 511 FOR Kel TQ 5 


10 FOR Не! TO 18: READ КОМ): NEXT М 


515 NCJ,K)»0 


13 DATA -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1 518 NEXT K 


14 FOR 0i» 1 TO 16: READ ACO): NEXT 01 


20 6070 500 

50 FOR J=1 105 

St FOR Ket TO 5 

55 IF N(J,K)299 THEN 00808 200 


51? WEXT J 


S19 FOR B*1 ТО 2: Pie3: IF B«2 THEN Pi=30 
520 PRINT "PLAYER";B;" - 3 LIVE PIECES.” 
535 FOR Кізі TO 3: 80SUB 700 

540 NOUGBD,YODO P1: NEXT КІ 


60 NEXT K 542 NEXT B 

65 NEXT J 559 60808 90 

90 Кейі H20: H3«0 560 PRINT: GOSUB 50 

99 FOR Ја0 TO át PRINT $70 IF H2*0 THEN IF H3=0 THEN 574 

100 FOR Ка0 TO ó 971 IF H3=0 THEN Bett 6070 575 

101 IF JO0 THEN IF JO6 THEN 105 572 IF "2-0 THEN 9x2: 8070 575 

102 IF Кеб THEN PRINT 0;: GOTO 125 573 8070 580 

103 PRINT Kj: 8070 120 574 PRINT: PRINT "A DRAU"ISTUP 

105 IF КО THEN IF K<>6 THEN 110 575 PRINT: PRINT "PLAYER";B;"IS THE WINNER": STOP 
106 IF J=ó THEN PRINT 0: GOTO 126 380 FOR Bet Т0 2: PRINT: PRINT "PLAYER";B;: GOSUB 700 
107 PRINT Jj: GOTO 120 581 IF B99 THEN 540 

110 GOSUB 300 582 НЕХТ В 

120 НЕХТ К 586 НЕХТ), УС 0100: МОХС2) 7020081000 

125 NEXT J 596 8070 560 

126 RETURN 700 PRINT "X,Y" sPRINT"XXXXXX"FCHRG 1 32 ;" 939399 S CHR$CUEDD ;" 383411"; 
200 Bele IF NCJ,K)2999 THEN B310 701 PRINT CHR$(13);: INPUT Y(B),X(B) 

220 FOR Of= 1 TO 15 STEP 2 705 IF X(B)<=5 THEN IF X(B)20 THEN 708 

230 NLJ*8(01) K&ACOLELL)2NHACUT) KA CO TET) 82 706 0070 750 

231 NEXT 01 708 IF Y(B)<=25 THEN IF Y(B)2Q THEN 715 

239 RETURN 710 8010 750 

300 IF N(J,K)Q3. THEN 399 715 IF N(X(B),Y(8))<>0 THEN 750 

305 FOR 011 TO 18 720 IF Bat THEN RETURN 

310 IF N(J,K)=K(01) THEN 350 725 IF X(1)2X(2) THEN IF Y(1)2Y(2) THEN 740 

315 НЕХТ 01 ` 730 RETURN 

320 GOTO 399 740 PRINT "SAHE COORD. SET TO 0" 

350 IF 0127 THEN 340 241 M(X(B)+1,Y(B)+1)=0: B99: RETURN 

351 N(J,K)=100: H2282*1: PRINT * * "3 750 PRINT "ILLEGAL COORDS. RETYPE": 8070 700 

395 RETURN 99% END 
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Literature Quiz 


This is a simple CAl-type program 1 PRINT TAB(25);"LITERATURE QUIZ" 
which presents four multiple-choice 2 PRINT TABCOIS);"CREATIVE COMPUTING  HORRISTQUN, NEW JERSEY" 
questions from children's literature. 3 PRANT:PRINT:PRINT 
Running the program is self- 10 PRINT "TEST YOUR KNOWLEDGE OF CHILDREN’S LITERATURE." 
explanatory. 12 PRINT: PRINT "THIS IS A HULTIPLE-CHOICE QUIZ." 

The program was written by Pamela 13 PRINT "TYPE À 1, 2, 3, OR 4 AFTER THE QUESTION MARK." 
McGinley while at DEC. 15 PRINT: PRINT "GOOD LUCKI": PRINT: PRINT 


40 PRINT "IN PINOCCHIO, WHAT WAS THE NAHE OF THE CAT" 
42 PRINT "I)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO"; 
43 INPUT As IF A=3 THEN 46 
44 PRINT "SORRY...FIGARO WAS HIS NAME.": GOTO 50 
LITERATURE QUIZ 46 PRINT “VERY 80001 HERE'S ANOTHER.” 

CREATIVE COMPUTING  HORRISTOUN, NEM JERSEY 47 RaR+1 
50 PRINT: PRINT 
51 PRINT "FRON WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?” 
52 PRINT "1)HR. NIXON^S, 2)ELWER FUDD'S, 3)CLEM JUDD'/S, 4)STROBBOLI S"; 


TEST YOUR KNOWLEDGE OF CHILDREN’S LITERATURE. 53 INPUT A: IF A=2 THEN 56 
54 PRINT “100 BAD...IT WAS ELMER FUDD'S GARDEN.": GOTO 80 
THIS 18 A HULTIPLE-CHOICE QUIZ. 56 PRINT “PRETTY 600014 
TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK. 57 R=R+1 
60 PRINT: PRINT 
8000 LUCKI 61 PRINT "IN THE WIZARD OF 07, DOROTHY^S DOG UAS NAHED" 


42 PRINT "1) CICERO, 2) TRIXIE, 3) KING, 4) TOTO "; 
63 INPUT A: IF A=4 THEN 86 


IN PINOCCHIO, UHAT WAS THE NAME OF THE CAT 44 PRINT “BACK TO THE BOOKS,...TOTO WAS HIS NAME.": GOTO 70 
TOTIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO? 2 46 PRINT "YEA! YOURE A REAL LITERATURE GIANT." 
SORRY...FIGARO WAS HIS NAME. 67 R=R+1 


70 PRINT:PRINT 
71 PRINT “WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE" 


FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS? 72 PRINT “1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNQW WHITE, 4JUENDY"; 
T)HR. NIXON S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STROMBOLI“S? 2 73 INPUT As IF A23 THEN 76 
PRETTY 6000: 24 PRINT “OH, COME ON WOW...1T WAS SNOW WHITE.” 
75 GOTO 80 
76 PRINT "800D MEMORYI* 
IN THE WIZARD GF 02, DOROTHY“S DOG WAS NAMED 77 R=R+1 
1) CICERO, 2) TRIXIE, 3) KING, 4) TOTO ? 4 80 PRINT:PRINT 
YEA! YOUCRE А REAL LITERATURE GIANT. 85 IF R=4 THEN 100 


90 IF R<2 THEN 200 
92 PRINT "NOT BAD, BUT YOU HIGHT SPEND A LITTLE MORE TIME" 


WHO UAS THE FAIR HAIDEN WHO ATE THE POISON APPLE 94 PRINT "READING THE NURSERY GREATS." 
T)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOU WHITE, 4JUENDYT 1 96 STOP 
OH, COME ON NOU...IT WAS SNOW UHITE. 100 PRINT “WOW! THAT’S SUPER! YOU REALLY KNOW YOUR NURSERY" 


110 PRINT “YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE" 
120 PRINT "LITERATURE (HA, HA, HA)" 


NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME 130 STOP 

READING THE NURSERY GREATS. 200 PRINT “UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO" 
205 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND." 

BREAK IN 96 999 END 
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Love 


This program is 


designed 


to 


reproduce Robert indiana's great art 
work "Love" with a message of your 
choice up to 60 characters long. 


Your message is input as 
Statement 60. Statements 1 


A$ in 
00-130 


repeat the message A$ if it is less than 


60 characters long and insert iti 


nto T$. 


Statements 210-400 actually print the 


design. The data statements 


are an 


alternating count of the number of 
characters and blanks which form the 
design. These data give the correct 
proportions forastandard 10 character 
per inch Teletype or line printer. The 
13.2 characters per inch ofthe Teletype 
Model 43 on which this was printed 


cause some distortion. 


The love program was created by 


David Ahl. 


LOVE 
CREATIVE COMPUTING MORRISTOWN, NEU 


A TRIBUTE TO THE GREAT AMERICAN ARTI 
HIS GREAT WORK WILL BE REPRODUCED UI 
YOUR CHOICE UP TO 60 CHARACTERS. IF 
А HESSAGE, SIMPLE TYPE THE WORD ^LOV 


YOUR MESSAGE, PLEASE? LOVE 


LOVELOVELOVELOVELOVELOVELOVELOVELOVE, 


L QVELOVELOVEL OVELOVELOVE 
LOV ELOVELOVELOVELOVELOVELOV 
LOVE VELOVELOVELOVELOVELQVEL 
LOVE VELOVELOVELOVELOVELOVE 
LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELOVELOVELOV 

LOVE VELOVELOVELÜVELOVELOV 

LOVE VELÜVELOVELÜVELOVELOV 

LüVE VELOVELOVELÜVELGVEL V 

LOVE VELOVELOVELOVELOVEL V 

LOVE VELOVELOVELOVELOVE V 

LOVE VELOVELOVELOVELOV V 

LOVE VELOVELOVELOVEL VE 

L VELOV 
L VELOVE 
L VELOV 

L VELOV 

LOVE VELOVELOVELOV VELOVELOVE 
LOVEL ELOVELOVELO  OVELOVELOVE 
LOVEL ELOVELOVELO  QVELOVELOVE 
LOVELO LOVELOVEL  LOVELOVELOVE 
LOVELO LOVELOVEL — LOVELOVELOUE 
LOVELOV ÜVELOVE ELGVELOVELOVE 
LOVELOV QVELOVE ELOVELOVELOVE 
LOVELOVE VELOUV VELOVELOVELOVE 
LOVELOVE VELUV VELOVELOVELOVE 
LOVELOVEL ELO QVELOVELOVELOVE 
LOVELOVEL ELO GVELOVELOVELOVE 
LOVELOVELO L — LOVELOVELOVELOUE 
LOVELOVELO LOVELOVELOVELOVE 
LOVELOVELOV ELOVELOVELOVE 
LOVELOVELOV ELOVELOVELOVE 


LOVELOVELOVELOVELOVELOVELOVELOVELOVE 


JERSEY 


ST, ROBERT INDIANA. 
TH A MESSAGE OF 

YOU САМ”Т THINK OF 
E^ 


LOVELOVELOVELOVELOVELOVE 
Lov LOVELOVELOVE 
LOVELOVE 
VELOVE 
ELOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
LOVE 
ELOVE 
LOVELOVE 
LOVELOVELOVE 

E 

E 

VELOVELOVELO E 
VELQVELOVELOVE E 
VELOVELOUVELOVEL E 
VELDVELOÜUVELOVELU E 
VELOVEL VELOVELOVE 
VELOVE VELOVELOVE 
VELOVELOVE 

VELOVE VELOVELOQVE 
VELOVEL VELOVELOVE 
VELOVELOUVELOVELGO E 
VELQVELOVELOVEL E 


LOVEL 
VELOUELO 
OVELOVELGV 
LOVELOVELOV 
ELOVELOVELO 
VELOVELOVEL 
OVELOVELOVE 
LOVELOVELOV 
LOVELOVELO 
OVELOVEL 
VELOV 


Lov 


VELQVELOVELOVE E 
VELOVELOVELO E 

E 

E 
LOVELOVELOVELOVELOVELOVE 
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2 PRINT TAB(33); "LOVE" 

4 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
6 PRINT: 
20 PRINT 
30 PRINT 
40 PRINT 
50 PRINT 
60 INPUT 
70 DIM T$(1200: FOR 151 TO 10: PRINT: NEXT I 
FOR Ј=0 TO INT(60/L) 


100 
110 
120 
130 
140 
200 
205 
210 
240 
300 
400 
410 
600 
610 
420 
630 
840 
450 
650 
670 
680 
690 
200 
710 
999 


FOR I 


PRINTs PRINT 

"A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA." 
"HIS GREAT WORK WILL BE REPRODUCED WITH A MESSAGE OF" 
"YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN T THINK OF" 
"A MESSAGE, SIMPLE TYPE THE WORD 'LÜVE^": PRINT 

"YOUR HESSAGE, PLEASE";A$: L=LEN(A$) 


=1 TÜ L 


T$(J*L+*I)=HID$(á$,I,1) 


NEXT 


M 
Рт 


READ 
FOR I 
FOR I 
IF Al 
8070 
DATA 
DATA 
DATÀ 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Ts NEXT J 


Pei: C=C+1: IF C737 THEN 999 
А: А1=А1+А: IF P=1 THEN 300 


=1 TO A: PRINT " "$: NEXT I: Р=1: GOTO 400 
=А1-А TO А1-1: PRINT T$(I);: NEXT Is Рг0 


>60 THEN 200 
210 
60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5 
4,6,21,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4 
4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4 
4,6,19,1,1,5,11,9,4,4,6,19,1,1,5,10,10,4,4,6,18,2,1,8,8,11,4 
4,8,17,3,1,7,5,13,4,4,6,15,5,2,23,5,1,29,5,17,8 
1,29,9,9,12,1,13,5,40,1,1,13,5,40,1,4,6,13,3,10,8,12,5,1 
5,6,11,3,11,6,14,3,1,5,6,11,2,11,6,15,2,1 
8,6,9,3,12,6,16,1,1,6,6,9,3,12,4,2,1,10 
7,6,7,3,13,6,6,2,10,7,6,7,2,13,14,10,8,6,5,3,14,6,4,2,10 
8,6,5,2,14,6,7,1,10,9,6,2,3,15,6,16,1,1 
9,6,3,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1 
11,8,13,27,1,11,8,13,27,1,60 

21 TD 10: PRINT: NEXT I: END 


J». LunarLEM Rocket 


This game in its many different 
versions and names (ROCKET, 
LUNAR, LEM, and APOLLO) is by far 
and away the single most popular 
computer game. lt exists in versions 
that start you anywhere from 500 feet to 
200 miles above the moon, or other 
planets, too. Some allow the control of 
directional stabilization rockets and/or 
the retro rocket. The three versions 
presented here represent the most 
popular of the many variations. 

In most versions of this game, the 
temptation is to slow up too soon and 
then have no fuel left for the lower part 
of the journey. This, of course, is 
disasterous (as you will find out when 
you land your own capsule)! 

LUNAR was originally in FOCAL by 
Jim Storer while a student at Lexington 
High Schoo! and subsequently con- 
verted to BASIC by David Аһ. 
ROCKET was written by Eric Peters at 
DEC and LEM by William Labaree Il of 
Alexandria, Virginia. 

In this program, you set the burn rate 
of the retro rockets (pounds of fuel per 
second) every 10 seconds and attempt 
to achieve a soft landing on the moon. 
200 Ibs/sec really puts the brakes on, 
апа 0 16ѕ/ѕес is free fall. Ignition occurs 
at 8 Ibs/sec, so do not use burn rates 
between 1 and 7 165/ѕес. To make the 
landing more of a challenge, but more 
closely approximate the real Apolo 
LEM capsule, you should make the 
available fuel at the start (N) equal to 
16,000 Ibs, and the weight of the 
capsule (M) equal to 32,500 Ibs in 
Statement 15. 

Some versions of BASIC object to 
the series expansion calculations in 
Statements 420 and 430 (as you near 
the lunar surface, these numbers get 
very small). If your does, substitute the 
following expanded form for the ex- 
pansion in Statement 420: 
-Q'(1«Q*(1/2*Q* (1/3*Q* (1/4*Q/5)))) 


You should be able to figure the 
other one out yourself. 


LUNAR 
CREATIVE COMPUTING  HORRISTOUN, NEU JERSEY 


THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR 


LANDING CAPSULE. 


THE ON-BOARD COMPUTER HAS FAILED 
80 YOU HAVE TO LAND THE CAPSULE MANUALLY. 


6000 LUCK 

SEC HI + FT HPH LB FUEL BURN RATE 
0 129 0 3600 16500 t0 
10 109 5015 336 14500 79 
20 99 4223 3672 14500 79 
% 89 2903 3708 16500 79 
40 79 1055 3744 16500 то 
50 68 3959 3780 16300 79 
60 $8 1055 3816 16500 790 
70 47 2903 3852 16500 t 200 
80 37 1883 3482.87 14500 7 200 
?0 38 1191 3086.71 12500 т 200 
100 20 1251 2859.45 10500 T 200 
110 13 2549 2196.95 8500 1 200 
120 8 30 1692.43 6300 1 100 
130 3 3778 1440.5? 5500 ? 75 


OW HOON АТ 139.926 SECONDS - IMPACT VELOCITY 1253.25 MPH 
SORRY THERE WERE NO SURVIVORS. YOU BLEU ITI 
1M FACT, YOU BLASTED A NEU LUNAR CRATER 347.15 FEET DEEP! 


TRY AGAIN?? 

fO PRINT TAB(343) ; "LUNAR" 

20 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

25 PRINTSPRINT2 PRINT 

30 PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR" 

40 PRINT "LANDING CAPSULE.": PRINT: PRINT 

50 PRINT "THE ON-BOARD COMPUTER HAS FAILED (ІТ WAS MADE BY" 

60 PRINT "XEROX) SO YOU HAVE TO LAND THE CAPSULE HANUALLY." 

70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN” 
80 PRINT "0 (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND." 
90 PRINT "SET NEW BURN RATE EVERY 10 SECONDS.": PRINT 

100 PRINT "CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS." 

110 PRINT: PRINT: PRINT: PRINT “GOOD LUCK" 

120 L=0 

130 PRINT: PRINT "SEC","MI + FT","MPH","LB FUEL","BURN RATE":PRINT 
140 82120:U21:8233000! :N216500:Gz1E-03:2-1.8 

150 PRINT L, INT(A) INTCI2808 (A- INT(A20) , 3600: , M-N, INPUT. KiT=10 
180 IF M-NX1E-03 THEN 240 

170 IF Té1E-03 THEN 150 

180 S-T: IF M>=N+S*K THEN 200 

190 5=(М-Н)/К 

200 GOSUB 420: IF I<=0 THEN 340 

210 IF V<=0 THEN 230 

220 IF J<Q THEN 370 

230 GOSUB 330: GOTO 160 

240 PRINT "FUEL OUT AT";L; "SECONDS" :Ss C-UV4SOR CU042862) /6G 

250 \=0+6#%5: L=L+S 

260 W-3600*U: PRINT "ON HOON AT";L;"SECONDS - IMPACT UELOCITY":U;"HPH" 
270 IF Ucs1.2 THEN PRINT "PERFECT LANDING!": 6070440 

280 IF М<=10 THEN PRINT “GOOD LANDING (COULD BE BETTER)":GÜTO440 
282 IF U*&0THEN300 

284 PRINT "CRAFT DAMAGE... YOU'RE STRANDED HERE UNTIL A RESCUE" 
286 PRINT "PARTY ARRIVES. HOPE YOU HAVE ENOUGH OXYGEN!" 

388 GOTO 440 

300 PRINT “SORRY THERE WERE NO SURVIVORS. YOU BLEW IT!" 

310 PRINT "IN FACT, YOU BLASTED A NEU LUNAR CRATER";U*,277; "FEET ВЕЕР!" 
320 GOTO 440 

330 LzL*8: Т=Т-5: HzH-G*K: AsI: UV-J: RETURN 

340 IF S<5E-03 THEN 260 

350 DzU*SOR(UTUT2TAF(G-Z4K/M)) :92 28/0 

360 60508420: 60508 330: GOTO 340 

370 U=(1-M*8/(Z$K))/2: беку (ZEKE СОСОК Ee £072) 2) 4.05: 608UB. 420 
380 IF І<<0 THEN 340 

390 GOSUB 330: IF J>0 THEN 160 

400 IF V>0 THEN 370 

410 GOTO 160 

420 0=5+К/М: Ц=у+б+#5+7+(-0-0*0/2-0°3/3-0`4/4-0`5/5) 

430 IsA-DSt8T8/2-VtSt2*8* (O/ 240° 2/6405 3/1240 °4/2040°5/90) RETURN 
440 PRINT:PRINT:PRINT:PRINT "TRY AGAIN??": GOTO 70 


SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETUEEN 
0 (FREE FALL) AND 200 (HAXIHUM BURN) POUNDS PER SECOND. 
SET МЕШ BURN RATE EVERY 10 SECONDS. 


CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 14,500 LBS. 
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This is the most comprehensive of 
the three versions and permits you to 
control the time interval of firing, the 
thrust, and the attitude angle. It also 
allows you to work in the metric or 
English system of measurement. The 
instructions in the program dialog are 
very complete, so you shouldn't have 
any trouble. 

LEM CREATIVE COMPUTING  HORRISTOUN, NEU JERSEY 
LUNAR LANDING SIMULATION 


HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE (YES OR NO)? NO 


WHICH SYSTEM OF HEASUREHENT DO YOU PREFER? 
1<ВЕТЕІС O=ENGLISH 
ENTER THE APPROPRIATE NUMBER? 1 


YOU ARE ON A LUNAR LANDING MISSION. AS THE PILOT OF 
THE LUNAR EXCURSION NODULE, YOU WILL BE EXPECTED TO 
GIVE CERTAIN COMMANDS TO THE HODULE NAVIGATION SYSTEM. 
THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT 
OF INFORMATION NEEDED TO NAVIGATE THE SHIP. 


THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOUS. 
+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE HOON 

-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT 
+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT 
0 (ZERO) DEGREES IS DIRECTLY TOWARD THE NOON 


-180,180 


-90 < -t- > 90 
t 
0 
<< DIRECTION OF GRBIT << 


SURFACE OF HOON 
ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED. 
1 FUEL UNIT = 1 SEC. AT НАХ THRUST 
ARY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL 
FOR AN ATTITUDE CHANGE. 


AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN 
10 AND 100 PERCENT. 


NEGATIVE THRUST OR TIHE IS PROHIBITED. 


INPUT: TIME INTERVAL IN SECONDS ------ (Т) 
PERCENTAGE OF THRUST ---------- (P) 
ATTITUDE ANGLE IN DEGREES ----- (4) 


FÜR EXAMPLE: 
Т,Р,А? 10,65,-60 
ТО ABORT THE MISSION AT ANY TIME, ENTER 0,0,0 


OUTPUT: TOTAL TIME IN ELAPSED SECONDS 
HEIGHT IN FEET 
DISTANCE FROM LANDING SITE IN FEET 
VERTICAL VELOCITY IN FEET/SECOND 
HORIZONTAL VELOCITY IN FEET/SECOND 
FUEL UNITS REMAINING 


0 111188 -5.87625Е+06 0 1615.6 
T,P,A? 500,0,0 

500 106292 -5.11433E+04 -19.2028 1619.92 
Т,Р,А? 100,0,0 

400 104194 -4.96362E+06 -22.7246 1621.78 
T,P,AT 50,90,-90 

650 102914 -4.89021E+04 -30.3757 1484.58 
T,P,A? 100,23,0 

750 101907 -4.75003E+04 — 10,3519 1485.42 
T,P,A? 50,90,-90 

800 101993 -4.68314E+04 -8.74788 1341.57 
T,P,AT 100,40,-90 . 

900 98339 .8 -4.5622E*08 -67.3979 1213.07 
Т,Р,А? 50,10,0 

950 94511,6 -4.50472Е+06 -85.7323 1215.63 
T,P,A? 50,100,0 

1000 93320.21 -4.44704E*06 38.8868 1216.44 
Т,Р,А? 50,100,-90 

1050 94322.48 -4.3932Е%04 -.408409 1041.58 
Т,Р,А? 50,100,-90 

1100 93090 -4.34794E+06 -50.2897 862.287 
Т,Р,А? 50,100,-90 

1150 8944.77 -4.34115E+06 -108.811 477.922 
T,P,AT 100,100,-90 

1250 | 71572.2 -4.26382E+06 -246.665 290.396 


750 
750 
750 
705 
682.001 
637.001 
597.002 
592.002 
542.002 
492.002 
442,002 
392.002 


292.002 


107 


ТУРА? 50,100,0 


1300 82205.7 -4.24981E+06 -124.903 291.928 
T,P,A? 100,50,0 

1400 52014.2 -4.22147E+06 -75.8944 293.614 
T,P,A? 100,40,-90 

1500 34711.6 -4.20102Е+06 -231.305 116.821 
T,P,Af 50,50,90 

1550 23159.8 -4.19258E+06 -310.782 232.752 
T,P,A? 50,50,90 

1600 5635.9 -4.17824E+06 -390.108 352.728 
T,P,AT 10,0,0 

1610 1655.62 -4.17471E+06 -405.96 353.544 
Т,Р,А? 10,100,0 

1614.5 -142.239 -4.17312E+06 -393.08 353.917 


CRASH НИН 
YOUR IMPACT CREATED A CRATER 142.239 METERS DEEP. 
AT CONTACT YOU WERE TRAVELING 1904.15 KILOMETERS/HR 


DO YOU WANT TO TRY IT AGAIN (YES/NO)? 

7? NO THANKS! 

DO YOU UANT TO TRY IT AGAIN (YES/NO)? 

7 NO 

TOO BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED 
ASTRONAUTS. 


2 PRINT TAB(34); "LEK" 

4 PRINT ТАВ(15); "CREATIVE COMPUTING WORRISTOUN, NEU JERSEY" 
7 REM ROCKT2 IS AN INTERACTIVE GAME THAT SIMULATES A LUNAR 
8 КЕН LANDING IS SIMILAR TO THAT OF THE APOLLO PROGRAM. 
9 REM THERE IS ABSOLUTELY NO CHANCE INVOLVED 
10 Z$="B0" 

15 Bist 

20 1217.95 

25 Ft25.235 

30 Нз7.5 

35 R0:926 

40 00=1.29 

45 T=0 

50 Н0ғ:40 

55 R=RO+HO 

80 Аз-3.425 

65 Ris0 

20 А128.84341Е-04 

75 R3«0 

80 A3c0 

85 H127.43 

90 Host 

95 52750 

100 Тізд 

105 Fed 

110 P20 

115 Net 

120 H2=0 

125 880 

130 С=0 

135 IF Z$="YES" THEN 1150 

140 PRINT 

145 PRINT "LUNAR LANDING SIMULATION" 

150 PRINT 

155 PRINT "HAVE YOU FLOWN AN APOLLO/LEN MISSION BEFORE”; 
160 PRINT " (YES OR NO)"; 

165 INPUT 09 

170 IF Q$="YES" THEN 190 

175 IF Q$z"NO" THEN 205 

180 PRINT "JUST ANSWER THE QUESTION, PLEASE, "$ 
185 0070 160 

190 PRINT 

195 PRINT “INPUT HEASURENENT OPTION NUMBER”; 
200 8070 225 

205 PRINT 

210 PRINT “WHICH SYSTEM OF MEASUREMENT DO YOU PREFER?" 
215 PRINT “ 1<ВЕТКІС O=ENGLISH" 

220 PRINT “ENTER THE APPROPRIATE NUMBER"; 
225 INPUT K 

230 PRINT 

235 IF K»0 THEN 280 

240 IF Ket THEN 230 

245 GOTO 220 

230 2:1852.8 

255 Hi-"HETERS" 

280 0323.6 

265 N$=" KILOMETERS" 

270 85-1000 

275 8070 305 

280 226080 

285 H$z"FEET" 

290 832.392 


242.002 
192.002 
152.002 
127.002 
102.002 
102.002 


97.5017 


295 фен MILES" 255 422-(3%43-44)/2%.0056%Ғ1<Ғ%5/ (MR) 


300 85-2 760 X-RIsTI t, SeR2eTleTt 

305 IF Bi-3 THEN 670 745 R=R+X 

310 IF ü$-"YES" THEN 485 770 HO=HO+X 

315 PRINT 775 RI=R1+R2*T1 

320 PRINT " YOU ARE ON A LUNAR LANDING MISSION. 45 THE PILOT QF" 280 й-А%А1471ғ.5%А2411471 

325 PRINT "THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO" 785 й1=А1+А2*Т1 

330 PRINT “GIVE CERTAIN COMMANDS TO THE HODULE NAVIGATION SYSTEM." 790 WzH-.3en2 

335 PRINT "THE ON-BOARD COMPUTER WILL GIVE А RUNNING ACCOUNT" 795 T=T+T1 

340 PRINT “OF INFORMATION NEEDED TO NAVIGATE THE SHIP." 800 IF Н0<3.287828Е-04 THEN 810 

345 PRINT 805 NEXT I 

350 PRINT 810 HzH0*7 

355 PRINT "THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS." 815 Н1=К1*7 

360 PRINT "+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON" 820 DrROsA*Z 

365 PRINT "-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT" 825 DisR*sAT»Z 

370 PRINT "+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT” 830 T2=KteB/KO 

375 PRINT “0 (ZERO) DEGREES IS DIRECTLY TOWARD THE HOON" 835 PRINT " ";T; TAB(10) 3H; TAB(23) ;D; 

380 PRINT 840 PRINT TAB(32) ;H1; TAB( 49); D1 TAB (601; T2 

385 PRINT TAB(30);"-180, 180" 845 IF Н0<2.287828Е-04 THEN 880 

390 PRINT TAB(34); "^" 850 IF RO*A>164.4736 THEN 1050 

395 PRINT TAB(27);"-90 € -+- > 90" 855 IF M120 THEN 580 

400 PRINT TAB(34);"l" 860 T1220 

405 PRINT TAB(34);"0" 865 Fz0 

410 PRINT TAB(23);"«X DIRECTION OF ORBIT <<" 870 P=0 

415 PRIAT 875 GOTO 420 

420 PRINT TAB(27); "SURFACE OF HOON” 880 IF R1X-8.21957E-04 THEN 1020 

425 PRINT 885 IF ABS(R*A1)24.931742E-04 THEN 1020 

430 PRINT 890 IF Н0<-3.287828Е-04 THEN 1020 

A35 PRINT "ALL ANGLES BETUEEN -180 AND 180 DEGREES ARE ACCEPTED," 895 IF 485(2)>1041 THEN 1045 

440 PRINT 900 GOTO 995 

445 PRINT "1 FUEL UNIT = 1 SEC. AT КАХ THRUST" 905 PRINT 

450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL" 910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-"; 
455 PRINT "FOR AN ATTITUDE CHANGE." 915 PRINT "ТІНЕ CONTINUUM.” 

460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETUEEN" 920 GOTO 575 

465 PRINT "10 AND 100 PERCENT." 925 PRINT 

470 PRINT 930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE NODULE" 
475 PRINT“NEGATIVE THRUST OR TIME IS PROHIBITED," 935 PRINT "FOR AN E.V.A.” 

480 PRINT 940 GOTO 575 

485 PRINT 945 PRINT 

490 PRINT “INPUT: TIME INTERVAL IN SECONDS ------ (n. 950 PRINT "IMPOSSIBLE THRUST VALUE "; 

495 PRINT " PERCENTAGE ÜF THRUST ---------- tp)" 955 IF Ғ<0 THEN 985 

500 PRINT " ATTITUDE ANGLE IN DEGREES ----- (aye 960 IF Ғ-.05<.05 THEN 975 

505 PRINT 965 PRINT "TOO LARGE" 

510 IF Q$="YES" THEN 535 970 GOTO 575 

515 PRINT "FÜR EXAMPLE:" 975 PRINT "TOO SMALL" 

520 PRINT "Т,Р,А? 10,65,-60" М 980 8010 575 

525 PRINT “TO ABORT THE MISSION AT ANY TIME, ENTER 0,0,0" 985 PRINT "NEGATIVE" 

530 PRINT 990 6010 575 

S35 PRINT “OUTPUT: TOTAL TIME IN ELAPSED SECONDS” 995 PRINT 

540 PRINT " HEIGHT IN ";M$ 1000 PRINT "TRANQUILITY BASE HERE -- THE EAGLE HAS LANDED" 
545 PRINT " DISTANCE FROM LANDING SITE IN ";M$ 1005 PRINT "CONGRATULATIONS -- THERE WAS NO SPACECRAFT DAMAGE" 
550 PRINT " VERTICAL VELOCITY IN ";H$; "/SECOND" 1010 PRINT "YOU HAY NOW PROCEED WITH SURFACE EXPLORATION." 
555 PRINT " HORIZONTAL VELOCITY IN ";H$;"/SECOND" 1015 GOTO 1100 

560 PRINT " FUEL UNITS REHAINING" 1020 PRINT 

545 PRINT 1025 PRINT “CRASH ИІНІНІҢ 

570 GOTO 470 1030 PRINT “YOUR IMPACT CREATED A CRATER";ABS(H) ;H$;" DEEP." 
575 PRINT 1035 X1=SOR(D1eDI+HE 913953 

580 PRINT "Т,Р,А"; 1040 PRINT “AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR" 
585 INPUT T1,F,P 1045 GOTO 1100 

890 F=F/100 1050 PRINT 

595 IF 11<0 THEN 905 1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY." 
600 IF Т1=0 THEN 1090 1080 GOTO 1100 

405 IF ABS(F-.05)>1 THEN 945 1065 PRINT "YOU ARE DOWN SAFELY - " 

610 IF ABS(F-.05)<.05 THEN 945 1075 PRINT 

615 IF ABS(P)2180 THEN 925 1080 PRINT "BUT MISSED THE LANDING SITE BY";ABS(D/65);N$ 
420 N=20 1085 GOTO 1100 

425 IF T1X400 THEN 635 1090 PRINT 

430 N=T1/20 1095 PRINT "MISSION ABENDED" 

838 Т1=Т1/Н 1100 PRINT 

640 PzP*3.14159/180 1105 PRINT “DO YOU WANT TO TRY IT AGAIN (YES/NO)7" 

645 S=SIN(P) 1110 INPUT 7% 

850 С=С05(Р) 1115 IF Z$z"YES" THEN 20 

655 H2zMORTT«F/B 1120 IF Z$z"NÜ" THEN 1130 

660 R3s-.S*ROR(C(VO/R)^2 4R*AT3A1 1125 GOTO 1105 

665 Ajz-2tRI*AT/R 1130 PRINT 

670 FÜR 1=1 TON 1135 PRINT "100 BAD, THE SPACE PROGRAM HATES TO LOSE EXPERIENCED" 
675 IF 41=0 THEN 715 1140 PRINT "ASTRONAUTS." 

680 MI=HI-H2 1145 STOP 

685 IF H1>0 THEN 725 1150 PRINT 

690 FsFUL HM 1/82) 1155 PRINT "OK, DO YOU WANT THE COMPLETE INSTRUCTIONS OR THE INPUT ~" 
á95 M2=H1+H2 1160 PRINT “OUTPUT STATEMENTS?" 

700 PRINT "YOU ARE QUT OF FUEL." . 1165 PRINT "I-CONPLETE INSTRUCTIONS" 

705 Н1=0 1170 PRINT "2:1NPUT-DUTPUT STATEMENTS" 

210 6010 725 1175 PRINT "J=NEITHER® 

715 Ғ-0 1180 INPUT Bt 

220 82-0 1185 0$2"uQ" 

725 H=M-. 532 1190 IF В1=1 THEN 205 

730 R4=R3 1195 0$" YES" 

235 Ris-.S*RO*((U0/R) 2)+R*A1*A1 1200 IF Bl=2 THEN 190 

740 R2=(3*R3-R4)/2+.00526*F1*F*C/B 1205 IF Bi=3 THEN 190 

745 A4243 1210 GOTO 1145 

750 Ais-2*RI*A1/R 1215 END 
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In this version, you start 500 feet 
above the lunar surface and control the 
burn rate in 1-second bursts. Each unit 
of fuel slows your descent by 1 ft/sec. 
The maximum thrust of your engine is 
30 ft/sec/sec. 


ROCKET 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


LUNAR LANDING SIMULATION 


DO YOU WANT INSTRUCTIONS (YES OR NO)? YES 


YOU ARE LANDING ON THE NOON AND HAVE TAKEN OVER MANUAL 
CONTROL 500 FEET ABOVE à 000) LANDING SPOT. YOU HAVE A 
DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REHAIN. 


HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE: 

(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING 

FUEL WILL BE REPORTED. 

AFTER THE REPORT, A ^*^ WILL BE TYPED. ENTER THE 

NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE 

NEXT SECOND. EACH UNIT OF FUEL UILL SLOW YOUR DESCENT 

BY t FT/SEC. 

THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR 

30 UNITS OF FUEL PER SECOND. 

WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE 

UILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A 

REPORT OF YOUR LANDING SPEED AND REMAINING FUEL. 

(5) IF YOU RUN QUT OF FUEL, THE 777 WILL NO LONGER APPEAR, 
BUT YOUR SECOND-BY-SECOND REPORT WILL CONTINUE UNTIL 
YOU CONTACT THE LUNAR SURFACE. 


(2 


- 


(3 


- 


(4 


- 


BEGINNING LANDING PROCEDURE..... 


800) LUCK!!! 


SEC FEET SPEED FUEL PLOT OF DISTANCE 


9 500 50 120 I 
70 

1 44.5 55 120 1 
to 

2 390 60 120 H 
79 

3 32.5 45 120 I * 
10 

4 260 70 120 I * 
1 10 

5 192.5 6% 110 1 3 
75 

6 12.5 45 105 I * 
7 25 

2 72.8 45 80 I * 
7 25 

8 37.5 25 55 Ios 
т 25 

9 22.5 3 30 Із 
17 

10 18.5 3 23 1» 
17 

11 14.5 1 16 Is 
14 

12 5% 2 12 Is 
T3 

13 12 4 9 1з 
13 

14 7 6 6 I+ 
16 
++» OUT OF FUELsaes 

15 1.5 3 9 Із 


wean CONTACT eves 
TOUCHDOWN AT 15.2649 SECONDS. 
LANDING VELOCITY = 4.32456 FEET/SEC. 
0 UNITS OF FUEL REMAINING. 
***** SORRY, BUT YOU BLEW ТІНЕ 
APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN. 
ANOTHER MISSION? NO THANKS! 


CONTROL GUT. 


10 PRINT TAB(33); "ROCKET" 

20 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINTIPRINT:PRINT 

70 PRINT “LUNAR LANDING SIMULATION" 

80 PRINT “----- ------- ---------. “% PRINT 


100 
110 
160 
200 
210 
220 
223 
230 
240 
250 
260 
270 
280 
290 
310 
320 
330 
340 
350 
380 
370 
380 
390 
400 
420 
% 430 
450 
455 
490 
500 
510 
520 
530 
540 
540 
570 
580 
570 
600 
410 
615 
620 
640 
650 
650 
670 
680 
690 
700 
710 
720 
730 
760 
770 
780 
790 
800 
805 
810 
820 
830 
840 
850 
840 
870 
999 
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INPUT "DO YOU WANT INSTRUCTIONS (YES OR Н0)";А$ 

IF Аё" Н" THEN 390 

PRINT 

PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL" 
PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE А" 
PRINT "DÜUNUARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN." 
PRINT 

PRINT "HERE ARE THE RULES THAT SOVERN YOUR SPACE VEHICLE:" 

PRINT "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING" 
PRINT " FUEL WILL BE REPORTED." 

PRINT "(2) AFTER THE REPORT, A ^*^ WILL BE TYPED. ENTER THE" 
PRINT " NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE" 


PRINT " NEXT SECOND. EACH UNIT OF FUEL WELL SLOW YOUR DESCENT" 
PRINT " BY 1 FT/SEC." 
PRINT "(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC OR" 


PRINT " 30 UNITS OF FUEL PER SECOND." 

PRINT "(4) UHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE" 
PRINT * WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN А“ 
PRINT * REPORT OF YOUR LANDING SPEED AND REMAINING FUEL." 


PRINT "(5) IF YOU RUN DUT OF FUEL, THE 777 WILL NO LONGER APPEAR," 


PRINT BUT YOUR SECOND-BY-SECOND REPORT WILL CONTINUE UNTIL" 
PRINT " YOU CONTACT THE LUNAR SURFACE.": PRINT 

PRINT "BEGINNING LANDING PROCEDURE.....": PRINT 

PRINT "B OOD LUCK 11 I 

PRINT:PRINT 

PRINT "SEC FEET SPEED FUEL PLOT OF DISTANCE" 

PRINT 

T=02H#5003¥2903F #120 


PRINT T; TAB (A) Н TAB(12)3V3TAB(20) ;F ; TAB(29) 3" I" 5 TAB(H/ 12429) je" 
INPUT B 

IF BCO THEN 650 

IF B>30 THER B=30 

IF ЮЕ THEN BsF 

9150-85 

Ғағ-В 

H=H-.5*(V+V1) 

IF H<s0 THEN 670 

T=T+1 

ТЕТІ 

IF F>Q THEN 490 

IF В=0 THEN 640 

PRINT “eee QUT OF FUEL**w+" 

PRINT T TAB(A) 3H} TAB(12) 4 TAB (20) ;F ; TAB (29) ;" I" sTABLH/ 12429) ; "е" 
B=0 

5070 540 

PRINT “sees CONTACT ees" 

H=sH+,5*(V+V1) 

IF B»5 THEN 720 

D=(-V+SOR(VeV+H#(10-29B) ))/(5-В) 

вото 730 

D-u/V 

V1=V+(5-B)*D 

PRINT "TQUCHDOUN AT";T+D;"3ECONDS." 

PRINT “LANDING VELOCITY x";U1;"FEET/SEC. " 

PRINT F;"UNITS OF FUEL REWAINING.* 

IF 91520 THEN 810 

PRINT "CONBRATULATIONS! A PERFECT LANDING!" 
PRINT “YOUR LICENSE WILL BE RENEVED.......LATER" 
IF AB8(V1)«2 THEN 840 

PRINT "зв SORRY, BUT YOU BLEW ITHIII* 

PRINT “APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN." 
PRINT: PRINT : PRINT 

INPUT “ANOTHER HISSION";A$ 

IF A$="YES" THEN 390 

PRINT: PRINT "CONTROL OUT.": PRINT 

END 


Master Mind 


In the March-April 1976 issue of Crea- 
live we published a computerized version 
of Master Mind, a logic game. Master Mind 
is played by two people—one is called the 
code-maker; the other, the code-breaker. 
At the beginning of the game the code- 
maker forms a code, or combination of 
colored pegs. He hides these from the 
code-breaker. The code-breaker then at- 
tempts to deduce the code, by placing his 
own guesses, one at a time, on the board. 
After he makes a guess (by placing a com- 
bination of colored pegs on the board) the 
code-maker then gives the code-breaker 
clues to indicate how close the guess was 
to the code. For every peg in the guess 
that's the right color and in the right posi- 
tion, the code-breaker gets a black peg. 
For every peg in the guess that's the right 
color but not in the right position, the 
code-breaker gets a white peg. Note that 
these black and white pegs do not indicate 
which pegs in the guess are correct, but 
merely that they exist. For example, if the 
code was: 

Yellow Red Red Green 
and my guess was 

Red Red Yellow Black 
| would receive two white pegs and one 
black peg for the guess. | wouldn't know 
(except by comparing previous guesses) 
which one of the pegs in my guess was the 
right color in the right position. 

Many people have written computer 
programs to play Master Mind in the pass- 
ive role, i.e., the computer is the code- 
maker and the human is the code-breaker. 
This is relatively trivial; the challenge is 
writing a program that can also play ac- 
tively as a code-breaker. 

Actually, the task of getting the com- 
puter to deduce the correct combination is 
not at all difficult. Imagine, for instance, 
that you made a list of all the possible 
codes. To begin, you select a guess from 
your list at random. Then, as you receive 
clues, you cross off from the list those 
combinations which you know are impos- 
sible. For example if your guess is Red 
Red Green Green and you receive no 
pegs, then you know that any combination 
containing either a red or a green peg is 
impossible and may be crossed off the list. 


The process is continued until the correct 
solution is reached or there are no more 
combinations left on the list (in which case 
you know that the code-maker made a 
mistake in giving you the clues some- 
where). 

Note that in this particular implementa- 
tion, we never actually create a list of the 
combinations, but merely keep track of 
which ones (in sequential order) may be 
correct. Using this system, we can easily 
say that the 523rd combination may be 
correct, but to actually produce the 523rd 
combination we have to count all the way 
from the first combination (or the previous 
one, if it was lower than 523). Actually, this 
problem could be simplified to a conver- 
sion from base 10 to base (number-of- 
colors) and then adjusting the values used 
in the MID$ function so as not to take a 
zeroth character from a string if you want 
to experiment. We did try a version that 
kept an actual list of all possible combina- 
tions (as a string array), which was sig- 
nificantly faster than this version, but 
which ate tremendous amounts of mem- 
ory. 

At the beginning of this game, you input 
the number of colors and number of posi- 
tions you wish to use (which will directly af- 
fect the number of combinations) and the 
number of rounds you wish to play. While 
you are playing as the code-breaker, you 
may type in BOARD at any time to get a list 
of your previous guesses and clues, and 
QUIT to end the game. Note that this ver- 
sion uses string arrays, but this is merely 
for convenience and can easily be con- 
verted for a BASIC that has no string ar- 
rays as long as it has a MID$ function. This 
is because the string arrays are one-di- 
mensional, never exceed a length greater 
than the number of positions and the ele- 
ments never contain more than one 
character. 
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MASTER MIND 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


NUMBER OF COLORS? 4 
NUMBER OF POSITIONS? 4 
NUMBER OF ROUNDS? 1 

TOTAL POSSIBILITIES = 254 


COLOR LETTER 


ROUND NUNBER 1 ---- 


GUESS MY COMBINATION. 
MOVE # 1 GUESS 7 BUNG 
YOU HAVE 2 BLACKS AND 0 WHITES. 
MOVE В 2 GUESS ? UURR 
YOU HAVE 2 BLACKS AND 1 
MOVE @ 3 GUESS ? UURD 
YOU HAVE 3 BLACKS AND 0 WHITES. 
MOVE # 4 GUESS 7 WUBR 
YOU HAVE 1 BLACKS AND 1 
MOVE # 5 GUESS ? RURG 
YOU GUESSED IT IN 5 MOVES! 
SCORE: 

COMPUTER 0 

HUHAN 5 


WHITES. 


WHITES. 


NOW I GUESS. THINK OF A COMBINATION. 
HIT RETURN WHEN READY 7 

MY GUESS IS: RRGR BLACKS, WHITES 7 0 
HY GUESS IS: GBBB BLACKS, WHITES ? 3 
МҮ GUESS IS: GUBB BLACKS, WHITES ? 3 
"Y GUESS IS: GGBB BLACKS, WHITES ? 4 
I GUT IT IN 4 KOVESI! 

SCORE: 


COHPUTER 4 
HUMAN 5 
GAME OVER 
FINAL SCORE: 
COMPUTER 4 
HUHAN 3 


Master Mind? is a game manufactured by 
Invicta Plastics, Ltd. 


MASTER MIND 300 PRINT "GUESS KY COMBINATION." 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 310 REH GET A COMBINATION 
320 A=INT(P*RND(1)+1) 
330 60508 3000 
340 FÜR X=1 TO A 


NUMBER OF COLORS? 5 350 GOSUB 3500 

NUMBER OF POSITIONS? 4 380 NEXT X 

NUMBER OF ROUNDS? 1 370 FOR M=1 TO 10 

TOTAL POSSIBILITIES = 625 380 PRINT "HOVE # ";M;" GUESS "L:INPUT X$ 


390 IF X$="BOARD" THEN 2000 

400 IF X$="QUIT" THEN 2500 
COLOR LETTER 410 IF LEN(X$)<>P9 THEN PRINT "BAD NUMBER OF POSITIONS.":60TU 380 
"— ====== 420 REH UNPACK X$ INTO G$(1-P9) 


430 FÜR X=1 TO P9 
Aire 1 440 FÜR Y=1 TO C9 
RED R 450 IF HID$(X$,X, 1) -HIDS (LS, Y, 1). THEN 480 
GREEN К 460 NEXT Y 
ORANGE 0 470 PRINT "^"; MIDS(XS,X,0); "^ IS UNRECOGNIZED.":GÜTO 380 
480 8$(X) MIDS(XS, X, 1) 
490 NEXT X 
E 500 REM NOW ШЕ CONVERT Q(1-P9) INTO A$(1-P9) [ACTUAL GUESS] 
ROUND NUMBER 1 S10 ROSUB 4000 
GUESS MY COMBINATION. 520 REM AND GET NUMBER OF BLACKS AND UHITES 
HOVE W 1 GUESS ? BUBU 330 GOSUB 4500 
YOU HAVE 1 BLACKS AND 2 WHITES. 540 IF B=P? THEN 630 
Hove # 2 GUESS 7 pBUD 550 REM TELL HUMAN RESULTS 
YOU HAVE 3 BLACKS AND 0 WHITES. 560 PRINT “YOU HAVE "3Bs" BLACKS AND ";U;" WHITES." 
HOVE à 3 GUESS ? BBUG 570 ВЕН SAVE ALL THIS STUFF FOR BOARD PRINTOUT LATER 
YOU HAVE 3 BLACKS AND 0 WHITES. 580 D 
MOVE € 4 GUESS ? BBUR 590 cm oye 
YOU HAVE 3 BLACKS AND 0 UNITES. 410 NEXT A 
HOVE # 5 GUESS 7 BBB А ) . 
YOU GUESSED IT IN 5 MOVES! 620 PRINT “YOU RAN OUT OF MOVES! THAT’S ALL YOU GET!":G0TO 440 
SCORE: 622 GOSUB 4000 
COMPUTER 0 623 PRINT "THE ACTUAL COMBINATION UAS: "; 
HUMAN 5 424 FOR X=t TO P9 
625 PRINT 8900; 
NOW 1 GUESS. THINK DF A COMBINATION. 626 NEXT X 
HIT RETURN WHEN READY ? 427 PRINT — 42470 
MY GUESS IS: BRRO BLACKS, WHITES 7 1,1 630 PRINT "YOU GUESSED IT IN "jM; mOVES! 
MY GUESS IS: RRUG, BLACKS, WHITES ? 1,1 840 H=H+1 
HY GUESS IS: GBRG BLACKS, WHITES ? 0,2 450 60508 5000 
MY GUESS IS: ROGO BLACKS, WHITES ? 4,0 660 REN 
I GOT IT IN 4 MOVES! 470 ВЕН NOU COMPUTER BUESSES 
SCORE: 680 REM 
COMPUTER 4 690 FOR X=1 TO P 
HUMAN 5 200 10021 
710 NEXT X 
GAME OVER 720 PRINT "NOU I GUESS. THINK OF A COMBINATION." 
FINAL SCORE: 730 INPUT "HIT RETURN WHEN READY ";X$ 
COMPUTER 4 740 FOR M-1 TO 10 
UMAN 5 750 GOSUB 3000 
760 REM FIND à GUESS 
270 G2INT(PSRNDUL) 1) 
780 IF 1(6)=1 THEN 890 
790 FOR X=6 TO P 
800 IF I(X)=1 THEN 880 
810 NEXT X 
820 FOR X=1 TO G 
2 PRINT TAB(30) ;"HASTER HIND" MM X 1 THEN 880 
1 PRINT S CREATIVE COMPUTING HORRISTOWN, NEW JERSEY 850 PRINT "YOU DUMMY, YOU HAVE GIVEN KE INCONSISTENT INFORMATION." 
s PRINT: : aso PRINT "LET^S TRY AGAIN, AND THIS TIME, BE HORE CAREFUL." 
20 REM MASTERMIND II 840 9070 660 
N REN CRE ВОКТ PUTING 890 REM NOU UE CONVERT GUESS #6 INTO G$ 
900 FOR X=1 TO 6 
50 REM PO BOX 789-H MORRISTOWN NEU JERSEY 07940 910 60508 3500 
s КЕН 920 NEXT X 
? 930 GOSUB 6000 
80 INPUT "NUMBER OF COLORS";C9 940 PRINT "MY GUESS IS: "3 
90 IF C9>8 THEN PRINT "NO MORE THAN 8, PLEASE! ":6070 80 950 FOR X=1 TD P9 
100 INPUT “NUMBER OF POSITIONS";P? 960 PRINT H$(X); 
110 INPUT "NUMBER OF ROUNDS" SR? 970 NEXT X 
120 P-C9^P? 980 INPUT " BLACKS, WHITES ";В1,Ш! 
130 PRINT "TOTAL POSSIBILITIES s";P 990 IF В1=Рӯ THEN 1120 
140 Н=0:С=0 1000 GOSUB 3000 
150 DIM Q(P3),5(10,2),88 (10) ,64$ (P9) ,68(P9), IIP) HEP?) 1010 FOR X=1 TO P 
180 L$="BURGOYPT" 1020 60508 3500 
170 PRINT 1030 IF I(X)=0 THEN 1070 
1035 60508 6500 
190 PRINT "COLOR LETTER" 1040 50508 4000 
200 PRINT "===== s=====" 1050 60508 4500 
210 FOR X=1 TO C9 1060 IF B1B OR UU THEN 10020 
220 READ X$ 1070 NEXT X 
230 PRINT X$;TABUI3) ;HID$CL$,X, 1) 1080 НЕХТ M 
240 NEXT X 1090 PRINT "I USED UP ALL MY MOVES!" 
250 PRINT 1100 PRINT "I GUESS HY CPU IS JUST HAVING AN OFF DAY." 
240 FOR R=1 TO R9 1110 GOTO 1130 
270 PRINT 1120 PRINT "I GOT IT IN ";H;" MOVES!" 
280 PRINT "ROUND NUMBER ";R;"----" 1130 С=С+М 
290 PRINT 1140 GOSUB 5000 
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1150 
1160 
1170 
1180 
1190 
2000 
2010 
2020 
2025 
2030 
2040 
2050 
2060 
2070 
2075 
2080 
2500 
2510 
2520 
2530 
2535 
2540 
2550 
2560 
2565 
2570 
2580 
3000 
3010 
3020 
3030 
3040 
3030 
3050 
3500 
3510 
3520 
3522 
3524 
3526 
3527 
3528 
3529 
3530 
3540 
3550 
3560 
3570 
3580 
4000 
4010 
4020 
4030 
4040 


NEXT R 

PRINT "GAME OVER" 

PRINT "FINAL SCORE:" 

GOSUB 5040 

STOP 

REM 

REH BDARD PRINTOUT ROUTINE 

REM 

PRINT 

PRINT "BOARD" 

PRINT "МОЧЕ GUESS BLACK UHITE" 
FOR Z=1 TO M-1 

PRINT 2;TAB(9) 8$ (2) ; TAB(25)58(2, 0 ; TAB (352; 8(2,2) 
NEXT 7 

PRINT 

GOTO 380 

REH 

REH QUIT ROUTINE 

КЕМ 

PRINT "QUITTER! MY COMBINATION DAS: "; 
GOSUB 4000 

FOR X=1 TO P? 

PRINT АЗОО); 

NEXT X 

PRINT 

PRINT "6000 BYE" 

STOP 

REM 

REH INITIALIZE 0(1-Р7) TO ZEROS 
КЕН 

FOR S=1 TO РӮ 

a(S)=0 

NEXT § 

RETURN 

КЕН 

КЕН INCREMENT 0(1-Р9) 

КЕН 

IF 001020 THEN 3530 


REM IF ZERO, THIS IS OUR FIRST INCREHENT: MAKE ALL ONES 


FOR 5=1 TO P? 

Q(S)=1 

WEXT 5 

RETURN 

0-1 

GMR) + 

IF ü(ü)€-C9 THEN RETURN 


0(0)=1 

0-01 

8070 3540 

КЕН 

КЕН CONVERT Q(1-P9) TO A$(1-P9) 
REH 

FOR 5-1 TO P? 

A$(5):HID$CLS,Q(50, 1) 


4050 NEXT 5 
4060 RETURN 


4500 REH 

4510 КЕН GET NUMBER OF BLACKS (B) AND WHITES (U) 
4520 REH HASHES G$ AND A$ IN THE PROCESS 

4530 REM 


4540 Bz0:U-0:F-0 

4550 FOR 5-1 TO P? 

4560 IF 6$(S)<>A$(S) THEN 4620 
4570 B=B+1 

4580 G$(S)=CHRS(F) 

4590 A$(S)=CHR$(F+1) 

4600 FsF*2 

4810 GOTO 4660 

4620 FOR Т=1 TO P? 

4630 IF G$(S)<>AS(T) THEN 4450 
4640 IF G$(T)zA$(T) THEN 4650 


4645 U=U+1:68$(T)=CHR$(F):6$(S)=CHR$(F+1)zF=F+2:60T0 4660 


4650 NEXT T 
4660 NEXT 8 
4670 RETURN 
5000 КЕН 
5010 КЕН 
5020 КЕН 
5020 PRINT "SCORE:" 

5040 PRINT " COMPUTER "3E 
5050 PRINT " HUNAN "ul 
$060 PRINT 
5070 RETURN 
5500 REM 
9310 REM 
5520 REM 
5530 FOR S=1 TO P? 

5540 8$(5)-MID$(L$,0(S),1) 
5550 NEXT S 
5560 RETURN 
6000 REM 
6010 КЕН 
6020 КЕН 
6030 FOR 5-1 TO РӮ 

6040 H$(S)=MIDS(L$,0(S),1) 
6050 NEXT 5 
6060 RETURN 
6500 КЕН 
6510 REM 
6520 REM 
6530 FOR S=1 TO P? 
6540 G$(S)=H$(S) 
6550 NEXT 5 
6560 RETURN 
8000 REN 


PRINT SCORE 


CONVERT Q(1-P9) INTO 6$(1-P9) 


CONVERT Q(1-P9) TO H$CT-P9) 


COPY H$ INTO 6$ 


PROGRAM DATA FOR COLOR NAMES 


8010 DATA BLACK, UHITE, RED, GREEN, ORANGE, YELLOU, PURPLE, TAN 


9998 REM — ...UE^RE SORRY BUT IT’S TIME TO GO... 


9999 END 


... 


© 


Paese sanae teh 


wee ... 
... 
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Math Dice 


The program presents pictorial drill 
on addition facts using printed dice 
with no reading involved. It is good for 
beginning addition, since the answer 
can be derived from counting spots on 
the dice as well as by memorizing math 
facts or awareness of number con- 
cepts. It is especially effective run on a 
CRT terminal. 

It was originally written by Jim 
Gerrish, a teacher at the Bernice A. Ray 
School in Hanover, New Hampshire. 


HATH DICE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


THIS PROGRAH GENERATES SUCCESSIVE PICTURES OF TUO DICE. 
WHEN TUO DICE AND AN EQUAL SIGN FOLLOWED BY A QUESTION 

HARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY. 
TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSUER. 


77 
RIGHT! 


THE DICE ROLL AGAIN... 


1* I 
1 I 
I «1 
* 
Teel 
1 * I 
It» 
«76 
NO, COUNT THE SPOTS AND GIVE ANOTHER ANSUER. 
=? 8 


NO, THE ANSWER IS 7 


THE DICE ROLL AGAIN... 


r? 8 
RIGHT! 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
265 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
375 
380 
381 
400 
410 
500 
510 
520 
530 
540 
541 
550 
560 
570 
880 
590 
600 
601 
610 
4% 
620 
999 
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PRINT TAB(1);"MATH DICE" 

PRINT TAB(15) “CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
PRINT:PRINTIPRINT 

PRINT "THIS PROGRAM GENERATES SUCCESSIVE PICTURES OF TUO DICE." 
PRINT "UHEN TUO DICE AND AN EQUAL SIGN FOLLOWED BY A QUESTION" 


PRINT "MARK HAVE BEEN PRINTED, TYPE YOUR ANSWER AND THE RETURN KEY." 


PRINT "TO CONCLUDE THE LESSON, TYPE CONTROL-C AS YOUR ANSWER." 
PRINT 
PRINT 

Нан+1 

D=INT(ó*RHD(1)+1) 

PRINT" ----- . 

IF D=t THEN 200 

IF D=2 THEN 180 


IF D=3 THEN 180 
PRINT "I w * I" 
GOTO 210 

PRINT "I+ I" 
GOTO 210 

PRINT "I I" 
IF 0=2 THEN 260 


IF De4 THEN 260 


IF р=6 THEN 270 
PRINT "I ж I" 
8070 280 
PRINT "I I" 
8070 280 
PRINT "I ж» I" 


IF D=1 THEN 350 
IF D=2 THEN 330 

IF Ds3 THEN 330 

PRINT "I ж» I" 

GOTO 340 

PRINT “I ж I" 

GOTO 360 

PRINT "I I^ 

PRINT 9 ----- ` 

PRINT 

IF Nc2 THEN 500 

PRINT “44 

PRINT 

Аер 

6010 100 

Тайға 

PRINT " a^; 

INPUT ТІ 

IF TisT THEN 590 

PRINT “НО, COUNT THE SPOTS AND GIVE ANOTHER ANSWER." 
PRINT " a"; 

INPUT 12 

IF T2:T THEN 590 

PRINT “NO, THE ANSWER IS";T 
GOTO 400 

PRINT "RIGHT!" 

PRINT 

PRINT "THE DICE ROLL AGAIN...” 
PRINT 

#=0 

5070 100 

END 


Mugwump 


Your objective in this game is to find 
the four Mugwumps hiding on various 
squares of a 10 by 10 arid. Homebase 
(lower left) is position (0,0) and a guess 
is a pair of whole numbers (0 to 9), 
separated by commas. The first 
number is the number of units to the 
right of homebase and the second 
number is the distance above 
homebase. 

You get ten guesses to locate the 
four Mugwumps; after each guess, the 
computer tells you how close you are 
to each Mugwump. Playing the game 
with the aid of graph paper and a 
compass should allow you to find all 
the Mugwumps in six or seven moves 
using triangulation similar to Loran 
radio navigation. 

If you want to make the game 
somewhat more difficult, you can print 
the distance to each Mugwump either 
rounded or truneated to the nearest 
integer. Statement 390 would print 
either INT (D+.5) or INT (D). 

This program was modified slightly 
by Bob Albrecht of People's Computer 
Company. It was originally written by 
students of Bud. Valenti of Project 
SOLO in Pittsburgh, Pennsylvania. 


Oh (л © +j соо © 


O — N 


0123 45 67 8 9 1011 1 1 141 


Use this scale with a compass to help find the Mugwumps. 
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MUGUUHP 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


THE OBJECT OF THIS GAME IS TO FIND FOUR HUGWUUHPS 
HIDDEN ON А 10 BY 10 GRID. HOMEBASE IS POSITION 0,0 
ANY GUESS YOU МАКЕ MUST BE TWO NUMBERS WITH EACH 
NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER 

18 DISTANCE TO RIGHT OF HOMEBASE AND SECOND NUMBER 
IS DISTANCE ABOVE HOMEBASE. 


YOU GET 10 TRIES. AFTER EACH TRY, I WILL TELL 
YOU HOW FAR YOU ARE FROM EACH HUGUUMP. 


TURN NO. 1 WHAT IS YOUR GUESS? 5,5 
YOU ARE 4 UNITS FROM MUGUUMP 1 

YOU ARE 3.1 UNITS FROM HUGUUMP 2 
YOU ARE 4.2 UNITS FROM MUGUUMP 3 
YOU ARE 5 UNITS FROM MUGUUHMP 4 


TURN NO. 2 WHAT IS YOUR GUESS? 0,0 
YOU ARE 10.2 UNITS FROM MUGUUKP 1 
YOU ARE 8.9 UNITS FROM MUGUUNP 2 
YOU ARE 11.3 UNITS FROM MUGUUNP З 
YOU ARE 5 UNITS FRON HUGUUMP 4 


TURN NO. 3 UHAT IS YOUR GUESS? 9,8 
YOU ARE 3 UNITS FROM HUGUUMP 1 

YOU ARE 4.1 UNITS FROM MUGWUKP 2 
YOU ARE 1 UNITS FROM MUGWUHP 3 

YOU ARE 8.9 UNITS FROM NUGUUMP 4 


TURN NO. 4 UHAT IS YOUR GUESS? 9,9 
YOU ARE 4 UNITS FROM HUGUUMP 1 

YOU ARE 5 UNITS FROM HUGUUMP 2 

YOU ARE 1.4 UNITS FROM MUGUUMP 3 
YOU ARE 9.8 UNITS FROM HUGUUMP 4 


TURN NO. 5 WHAT IS YOUR GUESS? 8,8 
YOU ARE 3.1 UNITS FROM HUGHUMP 1 
YOU ARE 4 UNITS FROM HUGHUHP 2 
YOU HAVE FOUND HUGUUMP 3 

YOU ARE 8.5 UNITS FROM MUGUUMP 


> 


TURN ND. 6 WHAT IS YOUR GUESS? 4 
YOU ARE 5.8 UNITS FROM MUGWUMP 1 
YOU ARE 5.6 UNITS FROM MUGUUHP 2 
YOU ARE B UNITS FROM HUGHUMP 4 


TURN NO. 7 WHAT IS YOUR GUESS? 3 
YOU ARE 6.3 UNITS FROM MUGUUMP 1 
YOU ARE 5.8 UNITS FROM HUGUUHP 2 
YOU ARE 7.2 UNITS FROM HUGWUMP 4 


TURN NO. 8 WHAT IS YOUR GUESS? 6 
YOU ARE 4.2 UNITS FROM HUGUUMP 1 
YOU ARE 4.4 UNITS FROM HUGUUMP 2 
YOU ARE B UNITS FROM MUGUUMP 4 


TURN NO. 9 WHAT IS YOUR GUESS? 6 
YOU ARE 5.8 UNITS FROM MUGMUMP 1 
YOU ARE 4.4 UNITS FROM MUGWUMP 2 
YOU ARE 1 UNITS FROM MUGWUMP 4 


TURN NO. 10 UHAT IS YOUR GUESS? 7,0 
YOU ARE 5.3 UNITS FROM MUGUUHP 1 
YOU ARE 4.1 UNITS FROM MUGUUMP 2 
YOU ARE 2 UNITS FROM HUGUUHP 4 


SORRY, THAT^S 10 TRIES. HERE IS WHERE THEY^RE HIDING 
MNUGUUMP 1 IS AT ( 9 , 5 ) 
MUGUUHP 2 IS AT (8 , 4) 
HUGUUMP 4 15 AT (39 , 0D 


THAT WAS FUN! LET'S PLAY AGAIN....... 
FOUR MORE HUGHUHPS ARE NOW IN HIDING. 
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1 PRINT TAB(33) ; " HUBUUNP" 
2 PRINT TABCIS)!"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
3 PRINT:PRINT:PRINT 

4 REH COURTESY PEOPLE’S COMPUTER COMPANY 

10 DIM P(4,2) 

20 PRINT "THE OBJECT OF THIS GAME IS TO FIND FOUR MUGUUHPS" 
30 PRINT “HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION 0,0" 
40 PRINT “ANY GUESS YOU МАКЕ MUST BE TUO NUMBERS WITH EACH" 
50 PRINT "NUMBER BETWEEN 0 AND 9, INCLUSIVE. FIRST NUMBER" 
60 PRINT "IS DISTANCE TG RIGHT OF HOMEBASE AND SECOND NUMBER" 
70 PRINT "IS DISTANCE ABOVE HOMEBASE.” 

80 PRINT 

90 PRINT "YDU GET 10 TRIES. AFTER EACH TRY, I WILL TELL" 
100 PRINT "YOU HOW FAR YOU ARE FROM EACH HUGHUMP.," 

110 PRINT 

240 60508 1000 

250 T-0 

260 T=T+1 

270 PRINT 

275 PRINT 

290 PRINT "TURN NO.";T;"UHAT IS YOUR GUESS"; 

300 INPUT M,N 

310 FOR 151 TO 4 

320 IF P(1,1)--1 THEN 400 

330 IF P(I,U)ON THEN 380 

340 IF P(I,2) ON. THEN 380 

350 PCI, 2-1 

360 PRINT "YOU HAVE FOUND MUGUUMP";I 

370 GOTO 400 

380 D=SQR((P(I,1)-H) 2+(P(I,2)-N) 2) 

390 PRINT "YOU ARE";(INT(D*10))/10;"UNITS FROM MUGUUMP";I 
400 NEXT 1 

410 FOR 451 TO 4 

420 IF P(J,1) O-1 THEN 470 

430 NEXT J 

440 PRINT 

450 PRINT "YOU GOT THEM ALL IN";T;" TURNS!" 

460 GOTO 580 

470 IF T<10 THEN 260 

480 PRINT 

490 PRINT "SORRY, THAT^S 10 TRIES. НЕВЕ IS WHERE THEYRE HIDING" 
540 FOR 1=1 TO 4 

550 IF P(I,1)5-1 THEN 570 

540 PRINT "HUGUUNP";I;"IS AT ("PPCL D 5" "PU, 2$)" 

570 NEXT I 

$80 PRINT 

600 PRINT “THAT WAS FUN! LETS PLAY AGAIN,......" 

410 PRINT "FOUR MORE MUGUUMPS ARE NOW IN HIDING." 

630 GOTO 240 

1000 FOR 1-1 TO 2 

1010 FOR 1=1 TO 4 

1020 P(I,J)=INT(10*RND(1)) 

1030 NEXT I 

1040 NEXT J 

1050 RETURN 

1099 END 


NAME is a silly little ice-breaker to 
get a relationship going between a 
computer and a shy human. The 
sorting algorithm used is highly inef- 
ficient — as any reader of Creative 
Computing will recognize, this is the 
worst possible sort for speed. But the 
program is good fun and that's what 
counts here. 

NAME was originally written by 
Geoffrey Chase of the Abbey, 
Portsmouth, Rhode Island. 


1 PRINT TAB(34) ; "NAHE" 

2 PRINT TAB(1S); "CREATIVE COMPUTING  MORRISTOUN, NEW JERSEY" 
3 PRINT: PRINT: PRINT 

5 DIM B$(40) 

10 PRINT "HELLO.": PRINT "MY NAME IS CREATIVE COMPUTER," 


20 PRINT "UHAT^S YOUR NAME (FIRST AND LAST";: INPUT A$: L=LEN(AS) 


30 PRINT: PRINT "THANK YOU, "3 
40 FOR 191 TO L: B$CI)-MIDSCAS, 1,1): NEXT I 
80 FOR I=L TO f STEP -1: PRINT B$(1);: NEXT I 


60 PRINT ".": PRINT “OOPS! І GUESS І GOT IT BACKUARDS. A SMART" 


70 PRINT “COMPUTER LIKE МЕ SHOULDN^T MAKE A MISTAKE LIKE THAT!": PRINT 


80 PRINT "BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER." 
90 PRINT "LET^S PUT THEM IN ORDER LIKE THIS: "3 

100 FOR J=2 TO L: IsJ-1: T$=B$(J) 

110 IF T$2B$CI) THEN 130 

120 В СІНЗеВ 19: IsI-1: IF 120 THEN 110 

130 B$CI*1)7T$: NEXT J 

140 FOR 1=1 TO L: PRINT B$(I);: NEXT Is PRINT: PRINT 

150 PRINT “DON’T YOU LIKE THAT BETTER";: INPUT D$ 

160 IF D$z"YES" THEN 180 


170 PRINT: PRINT "I^M SORRY YOU DON’T LIKE IT THAT UAY.": GOTO 200 


180 PRINT: PRINT "I KHEU YDU^D ADREE!!" 

200 PRINT: PRINT "I REALLY ENJOYED MEETING YOU ";4$;"," 
210 PRINT "HAVE A NICE DAY!" 

999 END 
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NAME 
CREATIVE COMPUTING  HORRISTDUN, NEW JERSEY 


HELLO. 
МҮ NAME IS CREATIVE COMPUTER. 
UHAT S YOUR NANE (FIRST AND LAST? SGT PEPPER 


THANK YOU, REPPEP T&S. 
OOPS! I GUESS I GOT IT BACKWARDS. A SMART 
COMPUTER LIKE ME SHOULDN^T MAKE A MISTAKE LIKE THAT! 


BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET^S PUT THEM IN ORDER LIKE THIS: EEGPPPRST 


DON T YOU LIKE THAT BETTER? NO 
1'M SORRY YOU DON'T LIKE IT THAT WAY. 


1 REALLY ENJOYED MEETING YOU SOT PEPPER. 
HAVE A NICE DAY! 


HELLO. 
MY NAME IS CREATIVE COMPUTER. 
ИНАТ”5 YOUR NAHE (FIRST AND LAST? SUSAN JONES 


THANK YOU, SENOJ NASUS. 
OOPS! I GUESS I GOT IT BACKWARDS. А SMART 
COMPUTER LIKE ME SHOULDNT MAKE A MISTAKE LIKE THAT! 


BUT I JUST NOTICED YOUR LETTERS ARE OUT OF ORDER. 
LET^S PUT THEM IN ORDER LIKE THIS:  AEJNNOSSSU 


DON^T YOU LIKE THAT BETTER? YES 
І KNEU YOU'D AGREE!! 


I REALLY ENJOYED MEETING YOU SUSAN JONES. 
HAVE & NICE DAY! 


One of the most ancient forms of 
arithmetical puzzle is sometimes 
referred to as a "boomerang." Atsome 
time, everyone has been asked to 
"think of a number,” and, after going 
through some process of private 
calculation, to state the resuit, after 
which the questioner promptly tells 
you the number you originally thought 
of. There are hundreds of varieties of 
the puzzle. 

The oldest recorded example 
appears to be that given in Arithmetica 
of Nicomachus, who died about the 
year 120. He tells you to think of any 
whole number between 1 and 100 and 
divide it successively by 3, 5, and 7, 
telling him the remainder in each case. 
On receiving this information, he 
promptly discloses the number you 
thought of. 

Can you discover a simple method of 
mentally performing this feat? If not, 
you can see how the ancient 
mathematician did it by looking at 
Lines 80-100 of the program. 

Nicomachus was written by David 
Ahl. 


2 PRINT ТАВСЗЗ) ;"NICOMA" 


4 PRINT ТАВ(15); "CREATIVE COMPUTING  HÜRRISTOUN, NEW JERSEY" 


6 PRINT: PRINT: PRINT 


10 PRINT “BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS -- A.D. 90!" 


20 PRINT 

30 PRINT "PLEASE THINK OF A NUMBER BETWEEN 1 AND 100." 
40 PRINT "YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF"; 
45 INPUT A 

50 PRINT "YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF"; 
55 INPUT B 

60 PRINT “YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF"; 
65 INPUT C 

70 PRINT 

80 PRINT "LET ME THINK А КОМЕНТ..." 

90 FOR 1=1 TO 1500: NEXT I 

100 р=70%4+21+8+15+С 

110 IF 0<=105 THEN 140 

120 В-)-105 

130 GOTO 110 

140 PRINT "YOUR NUMBER U45";D;", RIGHT"; 

160 INPUT AS 

165 PRINT 

170 IF A$-"YES" THEN 220 

180 IF A$-"NO" THEN 240 


190 PRINT “EH? І DON’T UNDERSTAND ^";4$;"/ TRY "YES" OR *NO'." 


200 GOTO 150 

220 PRINT “HOW ABOUT THAT!!" 

230 8010 250 

240 PRINT “I FEEL YOUR ARITHMETIC 19 IN ERROR." 
250 PRINT 

260 PRINT "LET'S TRY ANOTHER." 

270 GOTO 20 

999 END 
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NICONA 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


BOOMERANG PUZZLE FROM ARITHHETICA OF NICOMACHUS -- A.D. 90! 


PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 

YOUR NUMBER DIVIDED BY 3 HAS A REHAINDER OF? 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS А REMAINDER OF? 


LET HE THINK A MOMENT... 
YOUR NUMBER WAS 40 , RIGHT? YES 


HOW ABOUT THAT!! 

LET^S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS А REMAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REHAINDER OF? 


LET ME THINK A MOMENT... 
YOUR NUMBER WAS 100 , RIGHT? YES 


HOW ABOUT THAT!! 

LET^S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 


LET НЕ THINK A MOMENT... 
YOUR NUMBER MAS 39 , RIGHT? NO 


1 FEEL YOUR ARITHHETIC IS IN ERROR, 

LET^S TRY ANOTHER. 

PLEASE THINK OF A NUMBER BETWEEN 1 AND 100. 
YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER OF? 
YOUR NUMBER DIVIDED BY 7 HAS A REMAINDER OF? 


LET ME THINK A MOMENT... 
YOUR NUMBER WAS 1 , RIGHT? YES 


HOW ABOUT THAT!! 


- 
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NIM is one of the oldest two-person 
games known to man; it is believed to 
have originated in ancient China. The 
name, which was coined by the first 
mathematician to analyze it, comes 
from an archaic English verb which 
means to steal or to take away. Objects 
are arranged in rows between the two 
opponents as inthe following example: 


XXXXXXX Row 1 — 7 Objects 
XXXXX Row 2 — 5 Objects 
XXX Row 3 — 3 Objects 
X Row 4 — 1 Object 


Opponents take turns removing 
objects until there are none left. The 
one who picks up the last object wins. 
The moves are made according to the 
following two rules: 


1. On any given turn only objects from 
one row may be removed. There is по 
restriction on which row or on how 
many objects you remove. Of 
course, you cannot remove more 
than are in the row. 

2. You cannot skip a move or remove 
zero objects. 


The winning strategy can be 
mathematically defined, however, 
rather than presenting it here, we'd 
rather let you find it on your own. HINT: 
Play a few games with the computer 
and márk down on a piece of paper the 
number of objects in each stack (in 
binary!) after each move. Do you seea 
pattern emerging? 

This game of NIM is from Dartmouth 
College and is a generalized game 
which allows you to specify any 
starting size for the four piles and also a 
win option. To play traditional NIM, 
you would simply specify 7,5,3, and 1, 
and win option 1. 


NIN 


CREATIVE CONPUTING MORRISTOUN, NEU JERSEY 
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THIS IS THE GANE OF NIN. 

DD YOU VANT INSTRUCTIONS? YES 

THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS. 

ANY HUMBER OF OBJECTS ARE REMOVED FROM ONE PILE BY YOU AND 
THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE 

ALL THE OBJECTS THAT REMAIN IN ANY PILE BUT YOU MUST 

TAKE AT LEAST ONE OBJECT, AND YOU HAY TAKE OBJECTS FROM 
ONLY ONE PILE ON A SINGLE TURN. YOU MUST SPECIFY WHETHER 
WINNING IS DEFINED AS TAKING OR NUT TAKING THE LAST OBJECT, 
THE NUMBER OF PILES IN THE GAME, AND HOW MANY OBJECTS ARE 
ORIGINALLY IN EACH PILE. EACH PILE WAY CONTAIN A 

DIFFERENT NUMBER OF OBJECTS. 

THE MACHINE WILL SHOW ITS MOVE BY LISTING EACH PILE AND THE 
NUMBER OF DBJECTS REMAINING IN THE PILES AFTER EACH OF ITS 
MOVES, 


ENTER WIN OPTION ~ 1 TO TAKE LAST, 2 TO AVOID LAST? 2 
ENTER HUMBER OF PILES? 4 
ENTER PILE SIZES 

t? 10 


WANT TO NOVE FIRST? NO 
SIZE 


wo 
Pane 2 Ф > c s 
m 


YOUR HOVE ~ PILE,NUMBER TO BE REMOVED? 1,9 
PILE SIZE 
1 


1 
2 3 
31 
4 3 
YOUR КОМЕ - PILE,NUMBER ТО BE REMOVED? 2,2 
PILE SIZE 
i 


1 
2 1 
3 1 
4 90 


YOUR MOVE - PILE,NUHBER TO BE REMOVED? 3,1 
MACHINE WINS 
Do you want to play another game? NO 


100 PRINT ТАВ(33); "NIM" 1090 LET H=A(T) 

110 PRINT TAB(15); "CREATIVE COMPUTING HORRISTOUN, NEU JERSEY" 1100 LET G=I 

120 PRINT:PRINT:PRINT 1110 NEXT I 

210 DIM A(100),B(100,10),D(2) 1120 IF C/2<>INT(C/2) THEN 1190 
220 PRINT "THIS IS THE GAME OF NIM.” 1130 NEXT J 

230 PRINT "DO YOU WANT INSTRUCTIONS"; 1140 LET ESINT(OGRNDOD 1) 


240 INPUT 7% 1150 IF A(E)=0 THEN 1140 

250 IF Z$="NO" THEN 440 1160 LET F=INT(A(E)*RND(1)+1) 
260 IF Z$="no" GOTO 440 1170 LET ACE)=A(E)-F 

270 IF Z$="YES" THEN 310 1180 GOTO 1380 

280 IF Z$="yes" GOTO 310 1190 LET A(G)=0 

290 PRINT "PLEASE. YES OR NO"; 1200 FOR J-0 TO 10 

300 GOTO 240 1210 LET B(6,J)=0 

310 PRINT “THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS." 1220 LET C=0 

320 PRINT "ANY NUMBER OF OBJECTS ARE REHDVED FROM ONE PILE BY YOU AND" 1230 FOR I=1 TO N 

330 PRINT "THE MACHINE ALTERNATELY. ON YOUR TURN, YOU MAY TAKE" 1240 IF B(1,J):0 THEN 1260 
340 PRINT "ALL THE OBJECTS THAT REMAIN IN ANY PILE BUT YOU MUST" 1250 LET C=C+1 

350 PRINT "TAKE AT LEAST ONE OBJECT, AND YOU HAY TAKE OBJECTS FRON" 1260 NEXT I 

380 PRINT "ONLY ONE PILE ON A SINGLE TURN. YOU HUST SPECIFY WHETHER” 1270 LET A(G)=A(G)+2%(C/2-INT(C/2) )*2^J 
370 PRINT “WINNING IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT," 1280 NEXT J 

380 PRINT “THE NUMBER OF PILES IN THE GAME, AND HOW MANY OBJECTS ARE" 1290 IF U=1 THEN 1380 

390 PRINT "ORIGINALLY IN EACH PILE. EACH PILE WAY CONTAIN à" 1300 LET C=0 

400 PRINT "DIFFERENT NUMBER OF OBJECTS." 1310 FOR I-1 TON 

410 PRINT “THE MACHINE UILL SHOU ITS HOVE BY LISTING EACH PILE AND THE" 1320 IF ACI)>1 THEN 1380 

420 PRINT "NUMBER OF OBJECTS REMAINING IN THE PILES AFTER EACH OF 175" 1330 IF A(I)-0 THEN 1350 

430 PRINT "MOVES," 1340 LET C=C+1 

440 PRINT 1350 NEXT I 

450 PRINT "ENTER WIN OPTION - 1 TO TAKE LAST, 2 TO AVOID LAST"; 1380 IF C/2X2INT(C/2) THEN 1380 
460 INPUT U 1370 LET A(6)=1-A06) 

470 IF U-1 THEN 490 1380 PRINT "PILE SIZE" 

480 IF W422 THEN 450 1390 FOR 1=1 TO H 

490 PRINT "ENTER NUMBER OF PILES"; 1400 PRINT МІ) 

500 INPUT N 1410 NEXT I 

510 IF N>100 THEN 490 1420 IF W=2 THEN 1450 

520 IF М<І THEN 490 1430 GOSUB 1570 

530 IF NO'INT(N) THEN 490 1440 IF Z-1 THEN 820 

540 PRINT "ENTER PILE SIZES" 1450 PRINT "YOUR HOVE - PILE,NUHBER TO BE REMOVED"; 
550 FÜR I=1 ТОН 1460 INPUT X,Y 

560 PRINT I; 1470 IF ХУН THEN 1450 

970 INPUT A(T) 1480 IF X«1 THEN 1450 

580 IF 4(1)22000 THEN 540 1490 IF XO INT(X) THEN 1450 
570 IF А(1)<1 THEN 540 1500 IF Y>A(X) THEN 1450 

600 IF AGDOINT(AGD) THEN 540 1910 IF Y41 THEN 1450 

610 NEXT I 1520 IF Y<>INTCY) THEN 1450 


420 


PRINT "DO YOU VANT TO НОМЕ FIRST"; 


LET A(X)=A(X)-Y 


630 INPUT 09$ 1540 GOSUB 1570 

640 IF ü9$-"YES* GOTO 1450 1550 IF Z=} THEN 800 

650 IF 0?$z"yes" GOTO 1450 1560 GOTO 700 

660 IF Q9$="NO" GOTO 700 1570 LET 2-0 

670 IF 096="по" GOTO 700 1580 FOR I=1 TD N 

680 PRINT "PLEASE. YES OR NO"; 1590 IF A(I)-0 THEN 1610 
690 GOTO 630 1600 RETURN 

700 IF Әсі THEN 940 1610 NEXT I 

710 LET C=0 1620 LET Z-1 

720 FOR 1=1 TON 1630 RETURN 

730 IF ACI)=0 THEN 270 1640 PRINT "Do you want to play another gane"; 
740 LET C=C+#1 1650 INPUT 09% 

750 IF £-3 THEN 840 1640 IF 098ч"ҮЕ5" THEN 1720 
760 LET D(Ü)=I 1670 IF 0?$2"yes" THEN 1720 
770 NEXT I 1880 IF 09%="Н0" THEN 1730 
280 IF C=2 THEN 920 1690 IF Q9$="no" THEN 1730 
790 IF A(D(1))>1 THEN 820 1700 PRINT "PLEASE. YES OR NO"; 
800 PRINT "MACHINE LOSES" 1710 GOTO 1450 

810 GOTO 1640 1720 60T0 440 5 
820 PRINT "MACHINE WINS" 

830 8010 1640 

840 LET С=0 

850 FOR I=t TON 

860 IF ACI)>1 THEN 940 

870 IF А(1)=0 THEN 890 

880 LET C=C+1 

890 NEXT I 

900 IF C/2O INT(C/2) THEN 800 

910 GOTO 940 

920 IF A(D(1))=1 THEN 820 

930 IF ACD(2))=1 THEN 820 

940 FOR I=1 TD N 

950 LET Е=А(1) 

960 FOR Ј=0 TO 10 

970 LET F=E/2 

980 LET B(I,J)=2*(F-INT(F)) 


990 


LET E=INT(F) 


1000 NEXT J 


1010 
1020 
1030 
1940 
1050 
1050 
1070 
1080 


NEXT I 

FOR J=10 TO 0 STEP -1 
LET С=0 

LET H=0 

FOR 1=1 TON 

IF B(I,J)-0 THEN 1110 
LET С=с+1 

IF ACE)<=H THEN 1110 
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THAT (IT'S coow..... 


CT SAYS THE INDUSTRIAL 
REVOLUTION IS OVER AND 
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Number 


In contrastto other number guessing 
games where you keep guessing until 
you get the random number selected 
by the computer (GUESS, TRAP, 
STARS, etc.), in this game you get only 
one guess per play and you gain or lose 
points depending upon how close your NUNBER 
guess is to the random number CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
selected by the computer. You oc- 
casionally get a jackpot which will 


i i 1 PRINT ТАВ(33); "NUMBER" 
double your point count. You win when 2 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
you get oUU points. . 3 PRINT:PRINT:PRINT 
Tom Adametx wrote this program 4 PRINT "YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 Т0 5, YOU" 
while a student at Curtis Junior High 3 PRINT „Сан BAIN ж LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET Т0" 
; H TED BY THE COMPUTER.": PRINT 

School in Sudbury, Massachusetts. 2 PRINT “YOU OCCASIONALLY UILL GET A JACKPOT UHICH WILL DOUBLE(!)* 
8 PRINT "YOUR POINT COUNT. YOU UIN UHEN YOU GET 500 POINTS." 
9 PRINT: P=100 

YOU HAVE 100 POINTS. BY GUESSING NUMBERS FROM 1 TO 5, YOU 10 DEF FNR(X)=INT(5*RND(1)+1) 

CAN GAIN OR LOSE POINTS DEPENDING UPON HOW CLOSE YOU GET TO 12 INPUT "GUESS A NUMBER FRON 1 TO 5";G 

А RANDOM NUMBER SELECTED BY THE COMPUTER. 15 RsFHRCLO 
16 S=FRR(1) 

YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL DOUBLEC!) 17 TSFNR(1) 

YOUR POINT COUNT. YOU UIN WHEN YOU GET 500 POINTS. 18 U=FNR(1) 
19 V=FNR(1) 

GUESS A NUMBER FROM 1 TO 57 2 20 IF G=R THEN 30 

YOU HAVE 95 POINTS. 21 IF 025 THEN 40 

GUESS A HUMBER FROM 1 TO 5? 2 22 IF GsT THEN 50 

YOU HAVE 90 POINTS. 23 IF G=U THEN 40 

GUESS A NUMBER FROM 1 TO 5? 2 24 IF G=V THEN 70 

YOU HAVE 95 POINTS. 25 IF 625 THEN 12 

GUESS A NUMBER FROM t TQ 57 2 30 PsP-5 

YOU HAVE 96 POINTS. 35 6070 80 

GUESS à NUMBER FROM 1 TO 57 2 40 P=P+5 

YOU HIT THE JACKPOT!!! 45 GOTO 80 

YOU HAVE 192 POINTS. 50 P=P+P 

GUESS A NUMBER FROM 1 TO 5T 3 53 PRINT "YOU HIT THE JACKPOT!!!" 

YOU HIT THE JACKPOT!I! 55 6010 80 

YOU HAVE 384 POINTS. 60 Рерні 

GUESS A NUMBER FRON 1 TO 57 1 65 GOTO 80 

YOU HAVE 189 POINTS. 70 P=P-(P*.5) 

GUESS A NUMBER FROM 1 TO 5? 2 80 IF P2500 THEN 90 

YOU HAVE 394 POINTS. 82 PRINT "YOU НАМЕ" P "POINTS." 

GUESS A NUMBER FROM 1 Т0 57 5 85 GOTO 12 

YOU HIT THE JACKPOT!!! 90 PRINT #111100 UINLELI WITH ";P;"POINTS." 

11 1Y0U UIN!!!! WITH 788 POINTS, 99 END 
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In this game or puzzle, 48 checkers 
are placed on the two outside spaces of 
a standard 64-square checkerboard as 
shown: 


The object is to remove as many 
checkers as possible by diagonal 
jumps (as in standard checkers). 

Itis easy to remove 30 to 39 checkers, 
a challenge to remove 40 to 44, and a 
substantial feat to remove 45 to 47. 

The program was created and 
written by David Ahl. 


QNE CHECK 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


SOLITAIRE CHECKER PUZZLE BY DAVID AHL 


48 CHECKERS ARE PLACED ON THE 2 QUTSIDE SPACES OF A 
STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TU 
REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS 
(AS IN STANDARD CHECKERS). USE THE NUMBERED BOARD 70 
INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO. ON 
THE BOARD PRINTED QUT ON EACH TURN ^1^ INDICATES A 
CHECKER AND 707 AN EMPTY SQUARE. UHEN YOU HAVE NO 
POSSIBLE JUMPS REMAINING, INPUT A 707 IN RESPONSE TO 
QUESTION ^JUHP FROM 77 


HERE IS THE NUMERICAL BOARD: 


I 2 3 4 5 4 7 8 

% 10 11 12 13 14 15 16 
12 18 19 20 21 22 23 24 
25 26 27 28 29 30 31 32 
33 34 35 36 37 38 39 40 
м 42 43 44 45 46 47 58 
49 50 51 32 53 54 55 54 
57 58 59 60 &1 62 63 64 


AND HERE 


ры 
[7] 
ot 
= 
m 


OPENING POSITION OF THE CHECKERS. 


ША — — — — — — — 
ч — о о о о — — 
=з —^ O о о о — — 
оо о о – 
ч» — о о о oO — 
me m — — — — — — 
PIED 


JUMP FRO? 1 
TO? 19 


—————— о 
—————— оез 
=O Om m 
= - о Ф Ф о ~ 
— — O Ф o o — — 


JUHP FROH? 2 
TO? 20 


——————— о 
 —— OS 
————o- 
- - о о о шз – шм 
“mM о о Ф о = з 


JUMP FROM? 3 
TO? 21 


—€——————— o 
————— OD 
———o00-0o02o0 
——o0-—0- 
—— о Фо Фо - – 


JUMP FROK? 8 
TO? 22 


—— — — — — — © 
— — — — — — C Ф 
———oo0-—o02o0 
= — о Фо © ~ Ф әз 
- о Фо о зе з 


JUMP FROM? 14 
TO? 30 


------.-... 
-—— — — — оо 
= = о Ф о о Ф 
-~< m о о о Oo 
— — Фә Фә Quo 


JUMP FRON? 64 
TO? 46 


————M——— © 
————— осо 
Ф Ф о ~ о Ф 
-= Ф Ф Фо з Ф — 
-d O о Ф — — — 
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_— e a es O O es ——À—o00-—-- ——o0e06—- ——ocoo0o0o0-- 


—— — es 


OOS — — — — — — ә — — — — — — — — — ША — — — — — — me А А — — а t 


———— 5 OD 


ША а — h Qo A з — — — Оз ША А — — — — — — А К — — — AA — < — — — — — — — 


@— BH BOO 


JUMP FRON? 5 
TO? 23 


—————— о 
—————o0 
——oo0o0-—o02o 
--әосо-о- 
--осо--о 


JUMP FRON? 57 
T0? 51 


ILLEGAL MOVE. 
JUMP FROM? 57 
TO? 43 


----..--ш 
-——————o00 
———oo0-o02o 
——o0o0-—o0- 
= 6 о о © з — © 


JUMP FROH? 25 
TO? 11 


00010 
10 10 Í 
$0 1 1 1 
01000 
117000 
11 100 
10 1 Í | 
0 1 f f Í 


JUMP FROH? 4 
TO? 18 


00000 
10001 
$$ do: 1 
9 1000 
11000 
11 100 
Y 909 1 17 1 
0 1 1! 14 1 


JUMP FROH? 49 
TO? 35 


Dom mM Ome Se 
= оо - —— о о 
—————oo0 
—oo00-—2020 
——oo—-—o 


JUHP FROM? 41 
Т0? 27 


009000 
1000 1 
3 oT |»! f 1 
0 1 100 
10100 
0 0 1 0 0 
9 0 11 1 
0 1 fü 1 1 


= а о а фә 


—— Ome о - — — ОО o o —— — D — — e — ek o om — Qu 


— © з Om 


= о maw с 


AGAIN... 


————— oc — P = о = o ca Du — es — а cA о 


PP REP 


on we OD 


Dw nt ee ot OO P owe ee Ос O o — oc n OD 


Oo — — E 


JUMP FROM? 5B 
TO? 44 


© Ф Ф — Ф 6 — с 
Фооо - - оо 
————— — 
6-6 = OOM OS 
_—— Oooo ms 


JUMP FRON? 26 
Т0? 11 


ILLEGAL MOVE. 
JUMP FROM? 26 
TO? 12 


оо о m o m m Ф 
ээосоо-оо 
————ooo0 
= о о о 
= — о Ф о з — Ф 


JUHP FRON? 2 
TO? 4 


ILLEGAL MOVE. 
JUMP FROM? 22 
TO? 4 


эоо-о--о 
о Фо Фо - Ф © 
-————oo02o0 
——————-2 
-т — O O Ф “~ Do 


JüHP FROM? 59 
TO? 45 


о Фо о – о – - Ф 
ooocoo-oo 
о о з — сео ос 
TAO ° Ф me me - 
——o0--oo 


JUMP FRON? 18 
TO? 36 


оо о o о 
ооо оо о о о 
оо — оо о Ф 
— Qo — сә — — — 
——— о O -O 


JUMP FROM? 21 
To? 3 


Se © — — Ф 
ooocoooo 
eee - о о о ~. 
——— oH Om 
———oo0o0o2o0 


ma ЫА — D з Qc ———— — ° 


—— — O — сео з < — — с-ф — — —— — Om o c — 


wot о — о о 


———— e с 


AGAIN... 


m 


AGAIN... 


et о —————o- 


—————— o — 


_— о ал o 


O = e a t 6 O O O PPP 


D ma — a —— со O m m m MMO D m 6 DO 


O o — — O O 


Later in the game .... 


JUMP FROHT 48 
TD? 30 


о о о Ф o ü o o 


JUMP FROM? 37 
T0? 23 


о Ф о Ф Ф ~ oo 


ооо сз o о о O 


ооо о о Ф о Ф 


о о о Ф — — сз — 


оо о о — — Фф — 


о о © Фо о о 


— «5 о о Ф о © Ф 


—— —— — о о © 


= — о © сз Ф о 


JUMP FRON? 32 


TO? 14 


оо о о ©з — о с 


JUMP FROH? 7 


eooocece sa 


TO? 21 


оо о о о – о о 


ооо о о © о Ф 


ооо Om – о a 


оо о сз — — о — 


== ооо Ф С> єз с 


== ©з <з ©з Qo O O о 


--ооооо 


—-— — — о O SO 


JUMP FROM? 45 


TO? 31 


о о ©з © о 29 


оо о о о о cs 


о о о С> — — — 


mo ooo ©з Cfo 


— — © © o — o Ф 


JUMP FRON? 40 


TO? 22 


оо о о о ~ о о 


о o о © ©з о о о 


== о Ф Ф Ф Ф © Ф 


~— о о о – о о 


«ШЕР FRON? 63 


TO? 45 


эоэоосо-оо 


<> ©> о о сз о о су 


° ©з <> Ф м5 — Q — 


== Oooo о о о 


- = m O O о Ф 


лаа оо о ы. о о о о – -—— — — Do co -— — м Oo D — — —— — DOO ША — —A A c^ QD CD n^ 


- о-оо - о 


—o—o0o0o0o00 -ә-о-сооо W о-оо Ф оо -о-осооосо- - о-оо om о-оо о © m 


оосо о о о 


о-соососо о-о-осоо ә-о-соооо о-со-сосоо о-о--ооо ese o... 


onmocoo cso 


JUMP FROM? 53 


TO? 39 
00100100 
000200000 
10129091 100 
001000900 
00000010 
00001010 
00000001 
9020 11 100 

JUMP FRON? 54 

10? 38 
901200 100 
000020000 
01002101 100 
9001200000 
090000110 
00001 0900 
90000000 
0 0 0 1 1100 

JUMP ЕКОН? 45 

TD? 31 
001090100 
00 00090000 
1012011090 
9012909290010 
90200901 0 
900200000 
009009000 
09090011100 

JUMP FROM? 31 

TO? 13 
090100100 
00001000 
10101000 
001700000 
00000010 
900000000 
00000000 
900201 1100 

JUMP FROM? á 

TO? 20 
00100000 
002000000 
10111000 
09091200000 
090000010 
900200000 
000090 0090 
9001 1100 

JUMP FRON? 35 

TO? 20 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 35 

10? 21 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 35 

TO? 13 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FRON? 35 7 

TO? 0 

ILLEGAL MOVE. TRY AGAIN... 

JUMP FROM? 27 

TO? 13 
001009000 
009001000 
1010901000 
002000000 
009000010 
00000000 
00000000 
90 00 1 1100 


JUMP FROH? 0 


- YOU MADE 39 JUMPS AND HAD 9 PIECES 


REMAINING ON THE BOARD. 


TRY AGAIN? NO 


2 PRINT TAB(30);"0NE CHECK" 
4 PRINT TAB(IS);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 


6 PRINT: PRINT: PRINT 

B DIM А(64) 

10 PRINT "SOLITAIRE CHECKER PUZZLE BY DAVID AHL" 

15 PRINT 

20 PRINT "48 CHECKERS ARE PLACED ON THE 2 OUTSIDE SPACES OF А" 
25 PRINT "STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS To" 

30 PRINT "REMOVE AS MARY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS" 
35 PRINT "(А5 IN STANDARD CHECKERS). USE THE NUMBERED BOARD ТП" 
40 PRINT “INDICATE THE SQUARE YOU WISH TO JUMP FROM AND TO. ON" 
АЗ PRINT "THE BOARD PRINTED QUT ON EACH TURN ^1^ INDICATES А" 

50 PRINT "CHECKER AND 707 AN EMPTY SQUARE. WHEN YOU HAVE NO" 

55 PRINT "POSSIBLE JUMPS REMAINING, INPUT A ^0^ IN RESPONSE To” 
60 PRINT "QUESTION “JUMP FROM ?/" 

62 PRINT 

65 PRINT "HERE IS THE NUMERICAL BÜARD:" 

66 PRINT 

70 FOR J=1 TO 57 STEP 8 
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PRINT J;TABU A); J£ 1; TAB(B ;J62; TAB (12) 5435 TAB UM 62 5944; TAB (20) 5 457 
PRINT TAB(24);J+6;TAB(28);J+7 
NEXT J 

PRINT 

PRINT "AND HERE IS THE OPENING POSITION OF THE CHECKERS.” 
PRINT 

FOR J=1 TO 64 

ACSI 

NEXT J 

FOR J-19 TO 43 STEP 8 

FOR IsJ TO J+3 

А(1)=0 

НЕХТ 1 

NEXT J 

H=0 

60T0 340 

INPUT "JUMP FROM" SE 

IF F=0 THEN 500 

INPUT "TO" ST 

PRINT 

REH *** CHECK LEGALITY OF MOVE 
FI=INT((F-1)/8) 

F2=F-8*F1 

TI=INT((T-1)/8) 

12-1-8%Т1 

IF F1>7 THEN 230 

IF T127 THEN 230 

IF F2>8 THEN 230 

IF T258 THEN 230 

IF ABS(FT-T1) (92 THEN 230 

IF ABS(F2-T2) O2. THEN 230 


IF ACCT4F)/2)720. THEN 230 
IF ACF)=0 THEN 230 

IF A(T)=1 THEN 230 

GOTO 250 

PRINT "ILLEGAL MOVE. TRY AGAIN..." 
бото 100 

КЕН +++ UPDATE BOARD 
A(T) =f 

ACF )=0 

AC(THF)/2)20 

M=M+1 

КЕН +++ PRINT BOARD 


FOR 151 TO 57 STEP 8 

FOR IsJ TO 447 

PRINT ACI); 

NEXT 1 

PRINT 

NEXT J 

PRINT 

GOTO 100 

REM жаз END GAME SUMMARY 

5-0 

FOR 1=1 TO 64 

5=5+А(1) 

NEXT I 

PRINT "YOU HADE";H;"JUMPS AND HAD";S;"PIECES" 
PRINT “REMAINING ON THE BOARD." 

PRINT 

INPUT "TRY AGAIN" AS 

IF A$z"YES" THEN 70 

IF A$z"HO" THEN 600 

PRINT "PLEASE ANSWER “YES” DR "ND'." 

GOTO 562 
PRINT 
PRINT "O.K. 
END 


HOPE YOU HAD FUN!" 


Orbit 


ORBIT challenges you to visualize 
spatia! positions in polar coordinates. 
The object is to detonate a Photon 
explosive within a certain distance of a 
germ laden Romulan spaceship. This 
ship is orbiting a planet at a constant 
altitude and orbital rate 
(degrees/hour). The location of the 
ship is hidden by a device that renders 
the ship invisible, but after each bomb 
you are told how close to the enemy 
ship your bomb exploded. The 
challenge is to hit an invisible moving 
target with a limited number of shots. 

The planet can be replaced by a point 
at its center (called the origin); then the 
ship's position can be given as a 
distance from the origin and an angle 
between its position and the eastern 
edge of the planet. 


direction hip 
of orbit 


angle 
E 


The distance of the bomb from the 
ship is computed using the law of 
cosines (see line 430 of the program 
listing). The law of cosines states 


D^ R**2+D1**2+R*D1*COS (A-A1) 


where D is the distance between the 
ship and the bomb, R is the altitude of 
the ship, D1 is the altitude of the bomb, 
and A-A1 is the angle between the ship 
and the bomb. 


Practice Off-Line Problem: 

Aircraft appear on radar as blips of 
the form "-". What is the distance 
between the TWA and United aircraft 
shown on the radar screen on the right. 


ORBIT was originally called SPACE 
WAR and was written by Jeff Lederer of 
Project SOLO Pittsburgh, Penn- 
sylvania. 


ORBIT 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


SOMEUHERE ABOVE YOUR PLANET 15 A ROHULAN SHIP. 


THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS 
DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM 


10,000 TO 30,000 MILES AND AT ITS PRESENT VELOCITY CAN 


CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS. 


UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE 50 


YOU ARE UNABLE TO SEE THEM, BUT WITH A SPECIAL 
INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR 


PHOTON BOMB EXPLODED. YOU HAVE SEVEN HOURS UNTIL THEY 
HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE 


YOUR PLANET’S GRAVITY. 


YOUR PLANET HAS ENOUGH POWER TO FIRE ONE BOMB AN HOUR. 


AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN 
ANGLE (BETUEEN 0 AND 360) AND A DISTANCE IN UNITS OF 
100 MILES (BETWEEN 100 AND 300), AFTER WHICH YOUR BONB'S 


DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN. 


АН EXPLOSION WITHIN 5,000 MILES OF THE RÜHULAN SHIP 


UILL DESTROY IT. 


BELOU IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT. 


90 


0000000000000 
0000000000000000000 
000000 000000 
00000 00000 
00000 XXXXXXXXXXX 00000 
00000 XXXXXXXXXXXXX 00000 
0000 XXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXXXX 0000 


180<== 00000 KXXXXXXXXXXXXXXXXXX 00000 ==>0 


0000 XXXXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXXXX 0000 
0000 XXXXXXXXXXXXXXX 0000 
00000 XXXXXXXXXXXXX 00000 
00000 XXXXXXXXXXX 00000 
00000 00000 
000000 000000 
0000000000000000000 
0000000000000 
! 
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X ~ YOUR PLANET 
9 - THE ORBIT OF THE RONULAN SHIP 


ON THE ABOVE DIAGRAM, THE КОНИ АМ SHIP IS CIRCLING 
COUNTERCLOCKWISE AROUND YOUR PLANET. DON’T FORGET 
WITHOUT SUFFICIENT POUER THE ROMULAN SHIP^S ALTITUDE 
AND ORBITAL RATE WILL REMAIN CONSTANT. 


GOOD LUCK. THE FEDERATION IS COUNTING ON YOU. 


HOUR 1 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON ВОНВ? 90 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 250 


YOUR PHOTON BOMB EXPLODED 270.671 ¥10°2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 2 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 260 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 200 


YOUR PHOTON BOMB EXPLODED 382.522 *10^2 MILES FROM THE 
ROMULAN SHIP, 


HOUR 3 , AT WHAT ANGLE DO YOU WISH TQ SEND 
YOUR PHOTON BOHB? 35 
HOW FAR OUT DO YOU WISH TO DETONATE 117 200 


YOUR PHOTON BOMB EXPLODED 135.808 #10°2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 4 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOMB? 20 
HOW FAR 007 DO YOU WISH TO DETONATE IT? 300 


YOUR PHOTON BOMB EXPLODED 342.719 *10^2 MILES FRON THE 
ROMULAN SHIP. 


HOUR 5 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 40 
HOW FAR QUT DO YOU WISH TO DETONATE IT? 100 


YOUR PHOTON ВОНВ EXPLODED 228.24 *10^2 MILES FROM THE 
ROMULAN SHIP. 


HOUR & , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOHB? 55 
HOW FAR OUT DO YOU WISH TO DETONATE IT? 209 


YOUR PHOTON ВОНВ EXPLODED 328.821 *10^2 MILES FROM THE 
ROMULAN SHIP. 


HOUR 7 , AT WHAT ANGLE DO YOU WISH TO SEND 
YOUR PHOTON BOKB? 20 
HOW FAR QUT DO YOU WISH TO DETONATE IT? 100 


YOUR PHOTON BOMB EXPLODED 299.178 #10°2 MILES FROM THE 

RÜHULAN SHIP. 

YOU HAVE ALLOWED THE ROMULANS TO ESCAPE. 

ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT. 

DO YOU WISH TO TRY TO DESTROY IT? I HATE COMPUTERS THAT NEVER LOSE 
GOOD BYE. 


2 PRINT ТАВ(33); "ORBIT" 

4 PRINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
é PRINT:PRINT:PRINT 

10 PRINT "SOHEUHERE ABOVE YOUR PLANET IS А ROMULAN SHIP." 

15 PRINT 

20 PRINT "THE SHIP IS IN A CONSTANT POLAR ORBIT. ITS" 

25 PRINT "DISTANCE FROM THE CENTER OF YOUR PLANET IS FROM“ 
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30 

31 

35 

40 

45 

50 

55 

4% 

63 

?0 

25 

80 

85 

9 

95 

100 
105 
110 
111 
114 
115 
116 
117 
188 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
17? 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
192 
195 
1% 
197 
198 
199 
200 
210 
220 
230 
270 
280 
290 
300 
310 
320 
325 
326 
330 
335 
340 
550 
360 
365 
1% 
370 
380 
3% 
400 
410 
420 
430 
440 
445 
450 
460 
470 
480 
490 
500 
510 
520 
520 
540 
999 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


*10,000 TÜ 30,000 HILES AND АТ ITS PRESENT VELOCITY CAN" 
“CIRCLE YOUR PLANET ONCE EVERY 12 TO 36 HOURS." 


"UNFORTUNATELY THEY ARE USING A CLOAKING DEVICE so” 

"YOU ARE UNABLE TO SEE THEN, BUT WITH A SPECIAL" 
“INSTRUMENT YOU CAN TELL HOW NEAR THEIR SHIP YOUR" 
“PHOTON BOMB EXPLODED. YOU HAVE SEVER HOURS UNTIL THEY" 
"HAVE BUILT UP SUFFICIENT POWER IN ORDER TO ESCAPE" 
"YOUR PLANET^S GRAVITY.” 


“YOUR PLANET HAS ENOUGH POUER TO FIRE ONE BONB AN HOUR," 


"AT THE BEGINNING OF EACH HOUR YOU WILL BE ASKED TO GIVE AN" 
PRINT "ANGLE (BETWEEN 0 AND 360) AND A DISTANCE IN UNITS Qr" 

PRINT "100 HILES (BETWEEN 100 AND 300), AFTER UHICH YOUR BÜMB'S" 
PRINT “DISTANCE FROM THE ENEMY SHIP WILL BE GIVEN." 


PRINT 

PRINT "AN EXPLOSION UITHIN 5,000 MILES OF THE ROMULAN SHIP" 
PRINT “WILL DESTROY IT." 

PRINT 

PRINT “BELDU IS A DIAGRAM TO HELP YOU VISUALIZE YOUR PLIGHT," 
PRINT 

PRINT 

PRINT " 90" 

PRINT * >" 

PRINT " 0000000000000" 

PRINT " 0000000000000000000" 

PRINT " 000000 000000" 

PRINT * 00000 00000" 
PRINT " 00000 XXXXXXXXXXX 00000" 
PRINT " 00000 XXXXXXXXXXKXX 00000" 
PRINT " 0000 XXX XX XXXXXXXXXX 0000" 
PRINT " 0000 XXXXXXXXXXXXXXXXX 0000" 
PRINT " 0000 XXXXXXXXXXXXYXXXXXX 0000" 
PRINT "180€s« 00000 XXXXXXXXXXXXXXXXXXX 00000 ==>0" 
PRINT " 0000 XXXXXXXXXXXXXXXXXXX 0000“ 
PRINT " 0000 XXXXXXXXXXXXXXXXX 0000" 
PRINT “ 0000 XXXXXXXXXXXXXXX 0000" 
PRINT " 00000 XXXXXXXXXXXXX 00000" 
PRINT " 00000 XXXXXXXXXXX 00000" 
PRINT " 00000 00000" 
PRINT " 000000 000000“ 

PRINT " 0000000000000000000" 

PRINT " 0000000000000" 

PRINT " 1" 

PRINT " 270" 

PRINT 

PRINT "X - YOUR PLANET" 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT “GOOD LUCK. 
A=INT(360%RND(1)) 
DsINT(200*#RND(1)+200) 
R=INT(20*RND(1)+10) 
H=0 

IF H=? THEN 490 

H=H+1 
PRINT 
PRINT 
PRINT 
PRIHT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 
БЫ ЫН 
IF A<360 THEN 400 

А=А-340 

Т=АВ5(А-А1) 

If 14180 THEN 430 

T#360-T 

Cz80R(D9D*D1*D1-25DDT&COS (T43.14159/180)) 

PRINT "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE" 
PRINT "КОНЦАМ SHIP." 

IF С<=50 THEN 470 

GOTO 310 

PRENT “YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION." 

GOTO 500 

PRINT "YOU HAVE ALLOWED THE ROHULANS TO ESCAPE." 

PRINT "ANOTHER ROHULAN SHIP HAS GONE INTO ORBIT." 

PRINT "DO YOU WISH TO TRY TO DESTROY IT"; 

INPUT C$ 

IF C$="YES" THEN 270 

PRINT "GOOD BYE." 

END 


"0 - THE ORBIT OF THE ROMULAM SHIP" 


“ON THE ABOVE DIAGRAH, THE RÜMULAN SHIP IS CIRCLING" 
“COUNTERCLOCKWISE AROUND YOUR PLANET. DON’T FORGET" 
“WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE" 
“AND ORBITAL RATE WILL REMAIN CONSTANT." 


THE FEDERATION IS COUNTING ON YOU." 


"HOUR" SH", AT WHAT ANGLE DO YOU WISH TO SEND" 
"YOUR PHOTON BOMB"; 

al 

“HOU FAR OUT DO YOU WISH TO DETONATE IT"; 

bi 


In this game, you take orders for 
pizzas from people living in Hyattsville. 
Armed with a map of the city, you must 
then tell your delivery boy the address 
where the pizza is to be delivered. If the 
pizza is delivered to the correct ad- 
dress, the customer phones you and 
thanks you; if not, you must give the 
driver the correct address until the 
pizza gets delivered. 

Some interesting modifications 
suggest themselves for this program 
such as pizzas getting cold after two 
incorrect delivery attempts or taking 
three or more orders at a time and 
figuring the shortest delivery route. 
Send us your modifications! 

This program seems to have sur- 
faced originally at the University of 
Georgia in Athens, Georgia. The 
author is unknown. 


PIZZA 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


PIZZA DELIVERY GAME 
WHAT IS YOUR FIRST NAME? DARTH 
HI, DARTH, IN THIS GAME YOU ARE TO TAKE ORDERS 


FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY 
WHERE TO DELIVER THE ORDERED PIZZAS. 


МАР OF THE CITY OF HYATTSVILLE 
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THE ABOVE IS A МАР OF THE HOMES WHERE 
YOU ARE TO SEND PIZZAS. 


YOUR JOB IS TO GIVE A TRUCK DRIVER 
THE LOCATION OR COORDINATES OF THE 
HOME ORDERING THE PIZZA. 


DO YOU NEED MORE DIRECTIONS? YES 


SOMEBODY WILL ASK FOR A PIZZA TO BE 
DELIVERED, THEN A DELIVERY BOY WILL 
ASK YOU FOR THE LOCATION. 

EXAMPLE: 
THIS IS J. PLEASE SEND à PIZZA. 
DRIVER TO DARTH. WHERE DOES J LIVE? 
YOUR ANSWER WOULD BE 2,3 


UNDERSTAND? YES 
GOOD. YOU ARE NOW READY TO START TAKENG ORDERS. 


5000 ІШСЕК!!! 


HELLO DARTH^S PIZZA. THIS IS D. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES D LIVE? 4,1 
HELLO DARTH. THIS IS D, THANKS FOR THE PIZZA. 


HELLO DARTH^S PIZZA. THIS IS 0. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES 0 LIVE? 3,4 
HELLO DARTH. THIS IS 0, THANKS FOR THE PIZZA. 


HELLO DARTH’S PIZZA. THIS IS N. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES N LIVE? 4,2 

THIS IS H. I DID NOT ORDER A PIZZA. 

ILIVE AT 4, 2 
DRIVER TO DARTH. UHERE DOES N LIVE? 2,4 

HELLO DARTH. THIS IS N, THANKS FOR THE PIZZA. 


HELLO DARTH^S PIZZA. THIS IS J. PLEASE SEND A PIZZA. 
DRIVER TÜ DARTH. WHERE DOES J LIVE? 2,3 

HELLO DARTH. THIS IS J, THANKS FOR THE PIZZA. 

HELLO DARTH’S PIZZA. THIS IS F. PLEASE SEND A PIZZA. 
DRIVER TO DARTH. WHERE DOES F LIVE? 2,2 

HELLO DARTH. THIS IS F, THANKS FOR THE PIZZA. 

DO YOU WANT TO DELIVER MORE PIZZAS? NO 


0.К. DARTH, SEE YOU LATER! 


5 PRINT TAB(33) ; "PIZZA" 510 
10 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 520 
15 PRINT: PRINT: PRINT 530 
20 DIM 58116),48(4) 540 
30 PRINT "PIZZA DELIVERY GAHE”: PRINT 550 
50 INPUT "UHAT IS YOUR FIRST NAME"SNS: PRINT 590 
80 PRINT "HI, ";N$;". IN THIS GAME YOU ARE TO TAKE ORDERS" 400 
90 PRINT "FOR PIZZAS. THEN YOU ARE ТО TELL A DELIVERY BOY" 819 
100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS.": PRINT: PRINT 620 
140 FOR 1=1 TO 14 640 
150 READ S$(1) 650 
160 NEXT I 660 
120 FOR Is! TO 4 470 
180 READ NS(CI) 680 
190 NEXT I 685 
200 DATA "A" ngu, npn npe, "gu, wF" ngu ngo equ nn ngu, npv "MU "N" ngo 690 
210 DATA прети, "2" nan 700 
230 PRINT “HAP OF THE CITY OF HYATTSVILLE": PRINT 750 
250 PRINT " ----- 1----- 2----- 3----- 4----- " 780 
260 К=4 770 
270 FOR I=1 TO 4 775 
280 PRINT "-": PRINT 8-8: PRINT"-": PRINT "-" 780 
320 PRINT КК); 790 
330 SI=16-4*I+1 870 
340 PRINT " ":8$(81);" "5880516125" ":8$ (8182) 3" "s 880 
380 PRINT S$(5143);" "SMS (К) 890 
380 K=K-1 900 
390 NEXT I 310 
400 PRINT "-": PRINT "-"s PRINT "~": PRINT "-" 920 
440 PRINT " ----- 1----- 2-<--- 3----- 4----- ": PRINT 930 
460 PRINT "THE ABOVE IS A HAP OF THE HOMES WHERE" 940 
470 PRINT "YOU ARE TO SEND PIZZAS.": PRINT 940 
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER" 970 
500 PRINT "THE LOCATION QR COORDINATES OF THE" 999 
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"r ey 


PRINT "HOME ORDERING THE PIZZA.": PRINT 

INPUT "DO YOU NEED МОКЕ DIRECTIONS"; A$ 

IF A$="YES" THEN 590 

IF AS="NO" THEN 750 

PRINT ""YES' OR “NO” PLEASE, NOW THEN,": GOTO 520 

PRINT: PRINT "SOMEBODY WILL ASK FOR A PIZZA TU BE" 

PRINT "DELIVERED. THEN A DELIVERY BOY WILL" 

PRINT “ASK YOU FOR THE LOCATION. ": PRINT " EXAHPLE :" 
PRINT "THIS IS J. PLEASE SEND A PIZZA." 

PRINT "DRIVER TO ";N$;". WHERE DOES J LIVE?" 

PRINT "YOUR ANSUER WOULD BE 2,3": PRINT 

INPUT "UNDERSTAND" 545 

IF AS="YES" THEN 690 

PRINT "THIS JOB IS DEFINITELY 700 DIFFICULT FOR YOU. THANKS ANYUAY" 
GOTO 999 

PRINT “GOOD. YOU ARE NOU READY TO START TAKING ÜRDERS.": PRINT 
PRINT "GOOD LUCK!!": PRINT 

FOR 1=1 TO 5 

SsINT(RNBCT)*1651): PRINT 

PRINT "HELLO ";N$,"^GS PIZZA. THIS IS ":59(5):",": 

PRINT " PLEASE SEND A PIZZA." 

PRINT " DRIVER TO ";N$;". WHERE DOES "5S$(9);" LIVE"; 
INPUT A(1),A(2) 

ТЕА(1)+(А(2)-1)+%4 

IF T=$ THEN 920 

PRINT "THIS IS ";S$(T);°. I DID NOT ORDER A PIZZA." 
PRINT "I LIVE AT "SACHS", "3A(2) 

GOTO 780 

PRINT "HELLO "N$;". THIS IS ";8$(8);", THANKS FOR THE PIZZA." 
NEXT I 

PRINT: INPUT "DO YOU WANT TO DELIVER HORE PIZZAS";A$ 

IF AS="YES" THEN 750 

PRINT: PRINT "O.K. ";N$;", SEE YOU LATER!" 

END 


Poetry 


This program produces random 
verse which might loosely be con- 
sidered in the Japanese Haiku style. It 
uses 20 phrases in four groups of five 
phrases each and generally cycles 
through the groups in order. It inserts 
commas (random — 19% of the time), 
indentation (random — 22% of the 
time), and starts new paragraphs (1896 
probability, but at least once every 20 
phrases). 

The phrases in POETRY are 
somewhat suggestive of Edgar Allen 
Poe. Try it with phrases from computer 
technology, from love and romance, 
from four-year-old children, or from 
some other subject. Send us the out- 
put. 


to try: 

Carpet of ferns 
Morning dew 
Tang of dawn 
Swaying pines 
Entrances me 
Soothing me 
Rustling leaves 
Radiates calm 


10 PRINT TAB(30); "POETRY" 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINTSPRINTSPRINT 

90 ON I GOTO 100,101,102,103,104 

100 PRINT "MIDNIGHT DREARY";:80TO 210 
101 PRINT "FIERY EYES"; :G0TÜ 210 

102 PRINT "BIRD OR FIEND";:6DTO 210 
103 PRINT "THING OF EVIL";:G60T0 210 
104 PRINT "PROPHET"; :60Т0 210 

110 ON I GOTO 111,112,113,114, 115 

111 PRINT "BEGUILING ME"::U-2:60T0 210 
112 PRINT "THRILLED НЕ": 26070 210 

113 PRINT "STILL SITTING... ."::60TO0 212 
114 PRINT "NEVER FLITTING";:U-2:60T0 210 
115 PRINT "BURNED"::80TO 210 

120 ON I GOTO 121,122,123,124,125 

121 PRINT "AND MY SOUL";:60T0 210 

122 PRINT “DARKNESS THERE";:50T0 210 
123 PRINT "SHALL BE LIFTED";:6010 210 
124 PRINT “QUOTH THE КАЧЕН"; :6070 210 
125 IF 0=0 THEN 210 

126 PRINT "SIGN OF PARTING";:60T0 210 
130 ON 1 GOTO 131,132,133,134,135 

131 PRINT “NOTHING MORE";:GOTO 210 

132 PRINT "YET AGAIN"? :GOTO 210 

133 PRINT “SLOWLY CREEPING"; GOTO 210 
134 PRINT "...EUVERHORE"; :60T0 210 

135 PRINT "NEVERHORE"; 

210 IF 0=0 OR RND(1)>.19 THEN 212 

211 PRINT ",";:U=2 

212 IF RND(1)>.65 THEN 214 

213 PRINT " "s:U=U+1:60TU 215 

214 PRINT : U-0 

215 I=INT(INT(10*RND(1))/2)41 

220 J=J+1 : K=K+1 

230 IF U»0 OR 1NT(J/2) J/2 THEN 240 
235 PRINT " "s 

240 ON J GOTO 90,110,120,130,250 

250 Ј=0 : PRINT : IF K>20 THEN 270 

260 GOTO 215 

270 PRINT : U=0 : K=0 : GOTO 110 

999 END 


Here are some phrases from nature 


Mighty Oaks 

Grace and beauty 
Silently singing 
Nature speaking 
Untouched, unspoiled 
Shades of green 
Tranquility 

...80 peaceful 


The original author of this program is 
unknown. It was modified and rework- 
ed by Jim Bailey, Peggy Ewing, and 
Dave Ahl at DEC. 


POETRY 
CREATIVE CONPUTING MORRISTOWN, NEW JERSEY 


MIDNIGHT DREARY FIERY EYES, STILL SITTING.... 
DARKNESS THERE 

NOTHING MORE 
PROPHET, NEVER FLITTINO, SHALL BE LIFTED YET AGAIN 


PROPHET 
NEVER FLITTING QUOTH THE RAVEN 
SLOWLY CREEPING 
FIERY EYES 
BEGUILING HE, SIGN OF PARTING 
NEVERHORE 
MIDNIGHT DREARY 
THRILLED ME QUOTH THE RAVEN ...EUERMORE 


THRILLED ME BIRD OR FIEND 
BURNED 
DARKNESS THERE ...EVERMORE 


PROPHET BEGUILING HE 
DARKNESS THERE YET AGAIN 
MIDNIGHT DREARY 
STILL SITTING.... QUOTH THE RAVEN, NOTHING HORE 
BIRD OR FIEND 
BURNED SIGN OF PARTING NOTHING HORE 
MIDNIGHT DREARY 
STILL SITTING.... 
QUOTH THE RAVEN NEVERMORE 


STILL SITTING... 
MIDNIGHT DREARY STILL SITTING.,.. 
AND HY SOUL 

YET AGAIN 


PROPHET THRILLED ME, SIGN DF PARTING, 
oe EVERHÜRE 
BIRD OR FIEND, STILL SITTING.... 
YET AGAIN 
THING OF EVIL BURNED 
DARKNESS THERE NEVERMORE, 
THING OF EVIL 
BEGUILING ME SIGN OF PARTING ...EVERHÜRE 
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Poker 


Youandthe computer are opponents 
in this game of draw poker. At the start 
of the game, each player is given $200. 
The game ends when either player runs 
out of money, although if you go broke 
the computer will offer to buy your 
wristwatch or diamond tie tack. 

The computer opens the betting 
before the draw; you open the betting 
after the draw. If you don't have a hand 
that's worth anything and you want to 
fold, bet 0. Prior to the draw, to check 
the draw, you may bet .5. Of course, if 
the computer has made a bet, you must 
match it in order to draw or, if you have 
a good hand, you may raise the bet at 
any time. 

The author is A. Christopher Hall of 
Trinity College, Hartford, Connecticut. 


PBKER 
UREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 


WELCOKE TO THE CASINO. WE EACH HAVE $200 

I WILL OPEN THE BETTING BEFORE THE DRAW; YOU OPEN AFTER 
MHEN YOU FOLD, BET 0; TO CHECK, BET .5 

ENOUGH TALK -~ LET/^S GET DOWN TO BUSINESS 


THE ANTE IS $5. I WILL DEAL 


YOUR HAND: 
t -- JACK OF SPADES 2 -- QUEEN OF SPADES 
3 -- 4 OF SPADES 4 ~- 3 OF SPADES 


5 ~- QUEEN OF DIAMONDS 


I CHECK 
WHAT 15 YOUR BET? 5 
I'LL SEE YOU 


NOU UE DRAW -- HOW HANY CARDS DO YOU WANT? 1 
WHAT ARE THEIR NUMBERS 


78 

YOUR NEU HAND: 
t -- JACK OF SPADES 2 ~- QUEEN OF SPADES 
J~- 4 OF SPADES 4-- 3 OF SPADES 
8-- 3 OF HEARTS 


1 АМ TAKING 3 CARDS 
UHAT IS YOUR BET? 5 
I'LL SEE YOU, AND RAISE YOU 8 
WHAT IS YOUR BET? 8 


NOU WE COMPARE HANDS 


MY HAND: 
6 -- 3 OF CLUBS 
7-- 5 OF HEARTS 8 -- QUEEN OF CLUBS 
9 ~~ QUEEN OF HEARTS 10 -- ACE OF SPADES 


YOU HAVE A PAIR OF 365 

AND I HAVE A PAIR OF QUEENS 
THE HAND IS DRAWN 

ALL $ 46 REMAINS IN THE POT 


THE ANTE 15 $5. I WILL DEAL 


YOUR HAND: 


1-- 8 OF CLUBS 2-- 7 OF SPADES 
3-- 6 OF HEARTS 4-- 2 OF CLUBS 
$-- 3 OF DIAMONDS 


ILL OPEN WITH 28 
UHAT IS YOUR BET? 0 


I UIN 
NOU I HAVE $ 228 AND YOU HAVE $ 172 
DD YOU WISH TO CONTINUE? YES 
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THE ANTE IS $5. I WILL DEAL 


YOUR HAND: 


1 -- ACE OF CLUBS 2 -- QUEEN OF CLUBS 
3 -- KING OF CLUBS 4-- 7 OF CLUBS 
$-- 2 OF SPADES 

I CHECK 


UHAT IS YOUR BET? S 
I'LL SEE YOU 


NOW UE DRAW ~~ HOW HANY CARDS DO YOU WANT? 1 
WHAT ARE THEIR NUMBERS 


78 
YOUR HEU HAND: 

1 -- ACE OF CLUBS 2 -- QUEEN OF CLUBS 
3 ~- KING OF CLUBS 4-- 7 OF CLUBS 
$-- 5 OF CLUBS 


1 АН TAKING 1 CARD 

WHAT IS YOUR BET? 100 

I'LL SEE YOU, AND RAISE YOU 101 
UHAT IS YOUR BET? 101 


YOU CAN^T BET UITH WHAT YOU HAVEN^T GOT 
WOULD YOU LIKE TO SELL YOUR UATCH? YES 
I'LL GIVE YOU $75 FOR IT 

WHAT IS YOUR BET? 101 


NOW WE COHPARE HANDS 


HY HAND: 

& -~ 6 OF CLUBS 

7 =- 8 OF DIAMONDS 8-- 8 OF CLUBS 
9 -- 9 OF SPADES 10 -- % OF CLUBS 


YOU HAVE A FLUSH IN CLUBS 

AND I HAVE TUO PAIR, 95 

YOU UIN 

NOU I HAVE $ 17 AND YOU HAVE $ 458 
DO YOU WISH TO CONTINUE? YES 


THE ANTE IS 95. I WILL DEAL 


YOUR HAND: 

1 -~ JACK OF SPADES 2-- 4 OF CLUBS 

3 -- ACE OF CLUBS 4 -- QUEEN OF CLUBS 
5 -- 5 OF HEARTS 

1 CHECK 


WHAT IS YOUR BET? 5 
I'LL SEE YOU 


NOU WE BRAY -- HOU MANY CARDS DO YOU WANT? 2 
WHAT ARE THEIR NUMBERS 


22 
75 
YOUR NEU HAND: 

1 -- JACK OF SPADES 2-- 5 OF CLUBS 

3 -- ACE OF CLUBS 4 -- QUEEN OF CLUBS 
3-- % OF DIAMONDS 


I AM TAKING 1 CARD 
WHAT 15 YOUR BET? 5 
I'LL SEE ҮШІ 


NOU UE COMPARE HANDS 


HY HAND: 

6 -- 3 OF HEARTS 

? -- 6 OF HEARTS B-- 7 OF HEARTS 
9 -- 9 OF CLUBS 10 -- ACE OF HEARTS 


YOU HAVE SCHNALTZ, ACE HIGH 
AND I HAVE SCHMALTZ, ACE HIGH 
THE HAND IS DRAUN 

ALL $ 30 REHAINS IN THE POT 


I'M BUSTED. CONGRATULATIONS! 


à 
4 


PRINT TABC32); "POKER" 


GOSUB 3690 

IF BU THEN 670 

IF UB THEN 280 

IF H$="A FLUS" THEN 1700 


2 IF FNB(M)<FNB(D) THEN 780 


IF FHBCM)>ENB(D) THEN 670 

PRINT "THE HAND IS DRAUN" 

PRINT "ALL $"P"REMAINS IN THE POT" 
GOTO 140 

If FNBCH)>FNB(D) THEN 470 

IF FNBCD)>FNB(H) THEN 280 

8070 1670 

1781 
ACZ=10O#INT AERND CL) )+INTCLOO#RND GT) 
IF INT(A(Z}/100}93 THEN 1740 

IF A(Z)-100%INT(A(Z)/100)312 THEN 1740 
IF Z=1 THEN 1840 

FOR K=1 TO 2-1 

IF ACZ)=ACK) THEN 1740 

NEXT K 

IF 75510 THEN 1840 

N-ACU) 

AQ SAC 

A(Z)=N 

RETURN 

FOR Z=N TO N+4 

PRINT 
805UB 
PRINT " OF"; 

60508 2070 

IF Z/2401NT(Z/2) THEN 1920 
PRINT 

NEXT Z 

PRINT 

RETURN 

KEFNB(A(Z)) 

IF Ki>9 THEN 1980 
PRINT "JACK"; 

IF KC 10 THEN 2000 
PRINT "QUEEN"; 

IF KO 11 THEN 2020 
PRINT "KING"; 

IF K<>12 THEN 2040 
PRINT "ACE"; 

IF K>=9 THEN 2060 
PRINT K+2; 

RETURN 

KEINT(ACZ)/100) 

IF K420 THEN 2100 
PRINT " CLUBS", 

IF K<>1 THEN 2120 
PRINT " DIAMONDS", 

IF K<>2 THEN 2140 
PRINT " HEARTS", 

IF KO 3 THEN 2160 
PRINT " SPADES", 
RETURN 

у=0 

FOR Z=N TO N44 
B(Z)=FNB(A(2)) 

IF Z=N+4 THEN 2230 


DET 
i ; 


1950 


IF INT CACZ)/100)S5 INT(A(Z+1)/100) THEN 2230 


UzUs1 

NEXT Z 

IF U<?4 THEN 2310 
Xz11111 


PRINT TABCISHS"CREATIVE COMPUTING MORRISTOUN, NEU JERSEY" 
& PRINT: PRINT: PRINT 

10 DIK А(50),8(15) 

20 DEF ENACX}=INT(1OERND СТО) 

30 DEF FNBCX)=X-100#INI(X/100) 

AD PRINT “WELCOME TO THE CASINO. WE EACH HAVE $200" 

SO PRINT "I WILL OFEN THE BETTING BEFORE THE DRAWS YOU OPEN AFTER" 

40 PRINT "WHEN YOU FOLD, BET 0; TO CHECK, BET .5" 

70 PRINT "ENOUGH TALK ~- LET S BET DOUN TO BUSINESS" 

80 PRINT 900 PRINT “WHAT ARE THEIR HUMBERS" 

90 LET Ost 910 FÜR O=1 10 T 

100 LET C-200 220 INPUI U 

110 LET Ss200 930 GOSUE 1730 

120 LET P=0 940 NEXT 0 

130 REM 950 PRINT "YOUR NEU HAND:" 

140 PRINT ino 940 N=1 

150 IF С<=5 THEN 347 eu» їрє 

160 PRINT "THE ANTE IS $5. I WILL DEAL" 2% 50908 1850 

170 PRINT 990 FOR U=6 TO 10 

[80 IF 525 THEN 200 1000 IF INT(X/10^ U- 42) CHLORINTOCTO (QI-5)). THEN 1020 
190 GOSUB 3830 1010 BOSUB 1730 

200 LET P=P+10 1020 NEXT U 

210 LET 8=9-5 1030 PRINT 

220 coe jet in 10 1040 PRINT "I AM TAKING"Z-10-T"CARD"; з) 
39 GOSUS 1740 1050 IF Z-114T THEN 1090 9 
250 NEXT Z 1060 PRINT "S" 1650 
1 emm wayne 1070 PRINT 1610 
280 PRINT YOUR HAND: 1080 GOTO 1100 9 
280 50808 1850 1090 el 1664 
200 90 
100 122 imo va 180 
310 GOSUB 2170 20 Is 1490 
1130 GOSUB 2170 

320 PRINT 1700 
310 IF 106 THEN AT 1140 820 1710 
340 IF FNACOD<=? THEN 370 un 2 
350 LET Х=11100 110 d THEN 1190 1730 
360 8070 420 1180 SOTO 1330 1740 
320 LF FMACO)<=7 THEN 400 1190 TF асса THEN 1220 1750 
380 LET Xc11110 1200 iei 1760 
390 GOTO 420 1210 6010 1230 1785 
400 IF FNA(O))=1 THEN 450 1220 IF OSIS THEN 1220 1720 
410 Xe11111 1230 122 1780 
410 1-2 1240 IF FNA(Q) 526 THEN 1260 1790 
430 1-22 | 1250 2219 1800 
440 GOTO 580 1260 GOTO 1330 1810 
450 141 1220 IF U>=16 THEN 1320 2 
440 GOTO 510 1280 7219 1830 
470 If Wests THEN 540 1200 IF FRA(O)<>8 THEN 1310 1840 
480 IF FNACO)>=2 THEN 500 1300 2211 1850 
490 GOTO 420 1310 GOTO 1330 1840 
500 1-0 1320 122 1870 
510 K=0 " 1330 Кеў 1880 
520 PRINT "I CHECK" 1340 60508 3050 1890 
330 GOTO 60  ÍÀ 1350 IF Т<2.5 THEN 1450 1700 
340 IF Ui-16 THEN 570 1360 IF V=7 THEN 1400 1910 
330 7-2 1370 IF 1526 THEN 1400 1720 
560 IF FNA(0)5=1 THEN 580 1380 PRINT "ILE CHECK" 1930 
370 1555 1390 GOTO 1460 1940 
580 V=Z4FHACO) 1400 V=Z+FNA(0) 1950 
590 60508 3480 — — 1410 60508 3480 1960 
400 PRINT "I"LL OPEN WITH "V 1420 PRINT "I'LL ВЕТ" 1970 
510 K=V 430 KU 1980 
420 80808 3050 1440 EDSUP 3060 1990 
530 GOSUB 850 1450 B0SUB 450 2000 
440 GOTO 820 450 PRINT 2010 
650 IF 1524 THEN 760 1470 PRINT "ROW UE COMPARE HANDS" 2020 
680 PRINT 1480 J$-N$ 2030 
420 PRINT "I UIN" 490 (451% 2049 
680 C=C+P | А » 2 
290 PRINT “HUW I HAVE S"C"AND YOU HAVE $"S 1200 PRINT HY HAND: 2060 
200 PRINT "DO YOU WISH TO CONTINUE"; 1520 50808 1850 2070 
210 INPUT H$ 1330 Nei 2080 
720 IF H$z"YES" THER 120 1540 BOSUB 2170 2090 
230 1F H$="NO" THEN 4100 1350 PRINT 2100 
740 PRINT "ANSWER YES OR NO, PLEASE." 1580 PRINT "YOU HAVE "; 110 
750 6010 700 1370 K=D 2120 
240 IF 1554 THEN 810 1580 BOSUB 3690 2120 
270 PRINT 1590 H$=Js n 
280 PRINT "YOU UIN" 1400 Tee 2150 
290 S=S+P 2160 
770 8 1410 Кен 118 
800 GOTO 690 1620 PRINT "AND I HAVE "; 217 
810 RETURN 180 
S20 PRINT 2190 
230 PRINT "NOU UE DRAW -- HOM MANY CARDS DO YOU WANT"; 5200 
840 INPUT T 2210 
850 IF Т=ў THER 980 2220 
240 2210 2230 
870 IF T44 THEN 900 2240 
880 PRINT "YOU САНАТ DRAW MORE THAM THREE CARDS" 5250 
890 6010 840 2250 
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D=A(N) 


H$z"A FLUS" 

Isz"H IN" 

Uz15 

RETURN 

FOR Z=N TD М3 

FOR KzZ*1 TO N+4 

IF BCZ)<=B(K) THEN 2390 
X=A(Z) 

ACZI=A(K) 

B(Z)=B(K) 

A(K)=X 
B(KY=sA(K)-100#1NT(A8(R)/100) 
NEXT K 

NEXT Z 

X=0 

FOR Z=N TD N*3 

IF B(Z)S>B(Z4+1) THEN 2470 
XsX*11*107 CZ-N) 

D=A(Z) 

GOSUB 2760 

NEXT Z 

IF X450 THEN 2620 

IF B(N)+3<5B(N+3) THEN 2520 
Xs1111 

Uz10 

IF B(N+1)+3<5B(N+4) THEN 2620 
IF U<210 THEN 2400 

9514 

H$s"STRAIG" 

I$z"HT" 

Xz11111 

D-A (0+4) 

RETURN 

U=10 

X=11110 

IF U>=10 THEN 2690 
D=A(N+4) 

HS="SCHMAL" 

1812," 

0=9 

Х=11000 

GOTO 2740 

IF U<>10 THEN 2220 

IF 141 THEN 2740 

GOTO 2750 

IF 0212 THEN 2750 

IF FNB(D)^6 THEN 2250 
156 

RETURN 

IF U»-11 ІНЕН 3810 

8-11 

HS="A PAIR" 

Ig=" OF " 

RETURN 

IF U<s11 THEN 2910 

IF B(Z)¢>B(Z-1) THEN 2870 
H$z"THREE" 

СЕЗІН 

0=13 

RETURN 

Hs="TWO P" 

I$z"AIR, " 

9-12 

RETURN 

IF U»12 THEN 2760 

U=164 

H$z"FULL H" 

I$="QUSE, " 

RETURN 

IF ВО) 45802-1) THEN 3010 
Uz17 

HS="FOUR" 

ІШЕ 

RETURN 

0=16 

H$="FULL H" 

Isz"QusE, " 

RETURN 

5-0 

PRINT “WHAT IS YOUR BET"; 
INPUT T 

IF T-INT(T)=0 THEN 3140 
IF K<>0 THEN 3120 

IF 6520 THEN 3120 

IF Tz.5 THEN 3410 


PRINT "NO SMALL CHANGE, PELASE" 


GOTO 3060 

IF $-G-T:z0 THEN 3120 
GOSUB 3820 

6010 3060 

IF Т5>0 THEN 3200 

1=3 


4020 
4040 
4050 
4060 
3970 
4080 
4090 
4100 
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6010 5380 
IF G+T2k THEN 2230 


PRINT "IF YOU CAN T SEE HY BET, THEN FOLD" 


5070 10860 

G=G+T 

IF G=k THEN 3380 
IF Z451 THER 3420 
IF 6^3 THEN 3300 
IF 25223 THEN 3350 
y=5 

GOTO 3420 

LF Z=1 THEN 3320 


IF Тс=25 THEN 2350 
I=4 

PRINT "I FOLD" 
RETURN 

IF 222 THEN 3430 
PRINT "I^LL SEE YOU" 
К=б 

5=5-6 

CzC-K 

PEP+GtK 

RETURN 

IF 8»3*Z THEN 3250 
VsG-K*FNA(CO) 

50508 3480 


PRINT "I^LL SEE YOU, ANB RAISE ҮШ"Ү 


cV 
GOTO 3060 


IF €-G~V>=0 THEN 3640 


IF 6<>0 THEN 3920 
VsE 

RETURN 

IF C+G>=0 THEN 3350 


IF (0/2)42 INT(O/2) THEN 3400 


PRINT "WOULD YOU LIKE TO BUY BACK YOUR WATCH FOR $50"; 


INPUT J$ 

IF J$="NO" THEN 3600 
C=C+50 

ü-0/2 

RETURN 


IF 0/3<218 (0/2) THEN 3470 
PRINT "WOULD YOU LIKE TO BUY BACK YOUR TIE TACK FOR 350"; 


INPUT J$ 
IF J$s"MÜ" THEN 3670 
C=C+50 

0=0/3 

RETURN 

PRINT "I^H BUSTED. 
STOF 

PRINT H$:IS; 


IF H$<>"& FLUS" THEN 3250 


K=INTCK/100) 
GOSUB 2080 
PRINT 

RETURN 
KSFNBUCO 
80508 1960 


IF H$z"SCHMAL" THEN 3290 
IF H$<e"STRAIG" THEN 3810 


PRINT " HIGH" 
RETURN 

PRINT "5" 
RETURN 

PRINT 


PRINT "ҮШІ CAN T BEE WITH WHAT YOU HAVEN'T GOT" 
IF Of2=INT(O/2) THEN 3970 


CONGRATULATIONS!" 


PRINT "WOULD YOU LIKE TO SELL YOUR HATCH"; 


INPUT J$ 
IF J$="NO" THEN 3970 


IF FNA(O)227 THEN 3930 


PRINT "I^ LL GIVE YOU $75 FOR IT" 


0 $8973 


6010 3750 


PRINT "IHAT^S ñ PRETTY CRUMHY WATCH - ILL GIVE YOU $25" 


S=S+25 
0=0*2 
RETURN 


LF 0/35: INTCO/3) THEN 4090 
PRINT "WILL YOU PARI WITH THAT DIAMOND TIE TACK": 


INFUT J$ 
IF J$z"NO" THEN 4080 


IF FNACO):28 THEN 4950 


PRINT “YOU ARE ROW $100 RICHER" 


5=5+100 

GOTO 4070 

PRINT "IT'S PASTE. 
S=S+25 

0-0%3 

RETURN 


PRINT "YOUR ШАП 15 SHOT. 


END 


50 LONG, SUCKER!” 
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This game is based on the permissi- 
ble moves of the chess queen — i.e., 
along any vertical, horizontal, or 
diagonal. In this game, the queen can 
only move to the left, down, and 
diagonally down to the left. 

The object of the game isto place the 
queen (one only) in the lower left-hand 
square (no. 158), by alternating moves 
between you and the computer. The 
one to place the queen there wins. 

You go first and place the queen in 
any one of the squares on the top row 
or the right-hand column. That is your 
first move. The computer is beatable, 
but it takes some figuring. See if you 
can devise a winning strategy. 


QUEEN 
CREATIVE COHPUTING MORRISTOWN, NEW JERSEY 


DO YOU WANT INSTRUCTIONS? YES 

WE ARE GOING TO PLAY A GAME BASED GN ONE OF THE CHESS 
MOVES. OUR QUEEN WILL BE ABLE TO HOVE ONLY TO THE LEFT, 
DOUN, OR DIAGONALLY DOWN AND TO THE LEFT. 


THE OBJECT OF THE GAME IS TO PLACE THE QUEEN IN THE LOWER 
LEFT HAND SQUARE BY ALTERNATING MOVES BETWEEN YOU AND THE 
COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS. 


YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES 
ON THE TOP ROW OR RIGHT HAND COLUMN. 

THAT WILL BE YOUR FIRST HOVE. 

WE ALTERNATE HOVES. 

YOU HAY FORFEIT BY TYPING ^0" AS YOUR HOVE. 

BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE. 
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8 71 61 St 4 dH 2 HI 


92 82 72 62 52 42 32 22 


103 93 83 73 63 53 43 3i 


114 104 94 84 74 64 54 44 


125 115 105 95 85 75 65 55 


136 126 116 106 96 86 74 66 


147 137 127 117 107 97 87 77 


158 148 138 128 118 108 98 88 


WHERE WOULD YOU LIKE TO START? 44 
COMPUTER MOVES TO SQUARE 55 

ИНАТ IS YOUR HOVE? 65 

COMPUTER MOVES TO SQUARE 75 

UHAT IS YOUR MOVET 85 

COMPUTER MOVES TO SQUARE 127 

WHAT IS YOUR HOVE? 138 

COMPUTER HOVES ТО SQUARE 158 


NICE TRY, BUT IT LOOKS LIKE I HAVE WON, 
THANKS FOR PLAYING. 


ANYONE ELSE CARE TO TRY? YES 
WHERE WOULD YOU LIKE TO START? 31 
COMPUTER HOVES TO SQUARE 75 

WHAT IS YOUR HOVE? 95 `> 
COMPUTER MOVES TO SQUARE 158 


NICE TRY, BUT IT LOOKS LIKE I HAVE WON. 
THANKS FOR PLAYING. 


ANYONE ELSE CARE TO TRY? NO 


ОК --- THANKS AGAIN. 


1 PRINT TAB(33) ; "QUEEN" 


2 PRINT TAB(15) "CREATIVE COMPUTING  MHÜRRISTOUN, NEU JERSEY" 


3 PRINT:PRINTiPRINT 
10 DIN 8064) 

11 FOR 1=1 TO 64 

12 READ S(I) 

13 NEXT 1 

14 ВАТА Bt, 71, 61, St, 41, 31, 21, 11 
15 DATA 92, 82, 72, 62, 52, 42, 32, 22 
16 DATA 103, 93, 83, 73, 63, 53, 43, 33 
17 DATA 114, 104, 94, 84, 74, 64, 54, 44 
18 DATA 125, 115, 105, 95, 85, 75, 45, 55 
19 DATA 136, 126, 116, 106, 96, 86, 74, 66 
20 DATA 147, 137, 127, 117, 107, 97, 87, 77 
21 DATA 158, 148, 138, 128, 118, 108, 98, 88 
22 INPUT "DO YOU WANT INSTRUCTIONS";U$ 

23 IF WS="NO" THEN 30 

24 IF U$="YES" THEN 28 

25 PRINT “PLEASE ANSWER “YES” OR ^Nü'." 

26 БОТО 22 

28 80SUB 5000 

29 GOTO 100 

30 GOSUB 5150 

90 REM ERROR CHECKS 

100 PRINT “WHERE WOULD YOU LIKE TO START"; 

110 INPUT Ni 

115 IF His0 THEN 232 

120 TIS INTOI /10) 

130 Ul1=B1-10%T1 

140 IF Uiz1 THEN 200 

150 IF Ut=T1 THEN 200 

140 PRINT "PLEASE READ THE DIRECTIONS AGAIN." 
170 PRINT "YOU HAVE BEGUN ILLEGALLY.” 

175 PRINT 

180 GOTO 100 

200 GOSUB 2000 

210 PRINT “COMPUTER MOVES TO SQUARE";M 

215 IF Hs158 THEN 3400 

220 PRINT “WHAT IS YOUR MOVE"; 

230 INPUT Hi 

231 IF МТО THEN 239 

232 PRINT 

233 PRINT "IT LOOKS LIKE I HAVE UON BY FÜRFEIT." 
234 PRINT 

235 8070 4000 

239 IF МІ<=Н THEN 3200 

240 TI=INT(H1/10) 

250 01=Н1-10%Т1 

260 Р=01-0 

270 IF Р<20 THEN 300 

280 L=T1-T 

290 IF 1<=0 THEN 3200 

295 GOTO 200 

300 IF T1-T OP THEN 320 

310 вото 200 

320 IF Т1-Т O2*P THEN 3200 

330 8070 200 

1990 КЕН LOCATE MOVE FOR COMPUTER 

2000 IF Hi=41 THEN 2180 

2010 IF Hiz44 THEN 2180 

2020 IF M1z73 THEN 2180 

2030 IF Н1=75 THEN 2180 

2040 IF His124 THEN 2180 

2050 IF 1-127 THEN 2180 

2080 IF НІ=158 THEN 3300 

2065 С=0 

2070 FOR К=7 TO 1 STEP -1 

2080 U=U1 

2090 T=Ti+K 

2100 60SUB 3500 

2105 IF С=1 THEN 2160 

2110 U=U+K 

2120 GOSUB 3500 

2125 IF C=} THEN 2160 

2130 T=T+K 

2140 GOSUB 3500 

2145 IF C=1 THEN 2160 

2150 NEXT K 

2155 БОТО 2180 

2180 C=0 

2170 RETURN 

2180 80SUB 3000 

2190 RETURN 

2990 REM RANDOM HOVE 


3000 
3010 
3020 
3030 
3040 
3030 
3060 
3070 
3080 
3070 
3100 
3110 
3120 
3130 
3140 
31% 
3200 
3210 
3220 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3390 
3400 
3410 
3420 
3430 
3440 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3990 
4000 
4010 
4020 
4030 
4040 
4042 
4045 
4050 
4040 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5040 
5070 
5080 
5070 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5185 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
9999 
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Z=RND(1) 

IF 25.6 THEN 3110 

IF 12.3 THEN 3070 

U=U1 

T=Tí+1 

н=10+Т+0 

RETURN 

U=U1+1 

Тг11%2 

listos T«U 

RETURN 

Д=Ш1+1 

Тет 

Hz108T4U 

RETURN 

КЕҢ ILLEGAL HOVE MESSAGE 

PRINT 

PRINT "YOU CHEAT... TRY AGAIN"; 
GOTO 230 

REM PLAYER WINS 

PRINT 

PRINT "CONGRATULATIONS..." 
PRINT 

PRINT “YOU HAVE UÜN--VERY WELL PLAYED." 
PRINT "IT LOOKS LIKE I HAVE MET HY MATCH." 


PRINT "THANKS FOR PLAYING---I CAN'T WIN ALL THE TIME." 


PRINT 

вото 4000 

КЕН ` COMPUTER WINS 

PRINT 

PRINT "NICE TRY, BUT IT LOOKS LIKE I HAVE UON." 
PRINT "THANKS FOR PLAYING.” 
PRINT 

GOTO 4000 

КЕН TEST FOR COMPUTER HOVE 
HB=10*T+U 

IF Н=158 THEN 3570 

IF H*127 THEN 3570 

IF M=126 THEN 3570 

IF 5:75 THEN 3570 

IF W=73 THEN 3570 

RETURN 

C=1 

GOTO 3540 

REH ANOTHER GANE??? 

PRINT "ANYONE ELSE CARE TO TRY"; 
INPUT Q$ 

PRINT 

IF ü$z"YES" THEN 100 

IF Q$="NO" THEN 4050 

PRINT "PLEASE ANSWER "YES" OR ^NQ^." 


GOTO 4000 

PRINT "OK --- THANKS AGAIN." 
STOP 

REH DIRECTIONS 


PRINT "UE ARE GOING TO PLAY A GAME BASED ON ONE OF THE CHESS" 


PRINT "MOVES. OUR QUEEN WILL BE ABLE TO MOVE ONLY TO THE LEFT," 
PRINT “DOWN, OR DIAGONALLY DOWN AND TO THE LEFT." 

PRINT 

PRINT “THE OBJECT OF THE БАНЕ 18 TO PLACE THE QUEEN IN THE LOWER" 
PRINT "LEFT HAND SQUARE BY ALTERNATING HOVES BETWEEN YOU AND THE" 
PRINT “COMPUTER. THE FIRST ONE TO PLACE THE QUEEN THERE WINS." 
PRINT 

PRINT “YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE SQUARES" 
PRINT “ON THE TOP ROW OR RIGHT HAND COLUMN." 

PRINT "THAT WILL BE YOUR FIRST HOVE." 

PRINT "WE ALTERNATE MOVES," 

PRINT "YOU MAY FÜRFEIT BY TYPING 707 AS YOUR MOVE." 

PRINT "BE SURE TO PRESS THE RETURN KEY AFTER EACH RESPONSE," 
PRINT 

PRINT 

PRINT 

FOR A=0 TO 7 

FOR B21 TO 8 

T=B#A+B 

PRINT 8(D; 

NEXT B 

PRINT 

PRINT 

PRINT 

NEXT à 

PRINT 

RETURN 

END 


Reverse 


The game of REVERSE requires you 
to arrange a list of numbers in 
numerical order from left to right. To 
move, you tell the computer how many 
numbers (counting from the left) to 
reverse. For example, if the current list 
is: 

234516789 
and you reverse 4, the result will be: 

543216789 
Now if you reverse 5, you win! 

There are many ways to beat the 
game, but approaches tend to be either 
algorithmic or heuristic. The game thus 
offers the player a chance to play with 
these concepts in a practical (rather 
than theoretical) context. 

An algorithmic approach guarantees 
a solution in a predictable number of 
moves, given the number of items in the 
list. For example, one method 
guarantees a solution in 2N - 3 moves 
when the list contains N numbers. The 
essence of an algorithmic approach is 
that you know in advance what your 
next move will be. One could easily 
program a computer to do this. 

A heuristic approach takes advan- 
tage of "partial orderings” in the list at 
any moment. Using this type of ap- 
proach, your next move is dependent 
on the way the list currently appears. 
This way of solving the problem does 
not guarantee a solution in a predic- 
table number of moves, but if you are 
lucky and clever, you may come out 
ahead of the algorithmic solutions. 
One could not so easily program this 
method. 

In practice, many players adopt a 
"mixed" strategy, with both algorithmic 
and heuristic features. Is this better 
than either "pure" strategy? 

The program was created by Peter 
Sessions of People's Computer Com- 
pany and the notes above adapted from 
his original write-up. 
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REVERSE 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


REVERSE ~~ A GAME OF SKILL 

DO YOU WANT THE RULES? YES 

THIS IS THE GAHE OF “REVERSE”. TO UIN, ALL YOU HAVE 
TO DO IS ARRANGE à LIST OF NUMBERS (1 THROUGH 9 ) 

IN NUMERICAL ORDER FROM LEFT TO RIGHT. TO MOVE, YOU 


TELL ME HOW MANY NUMBERS (COUNTING FROM THE LEFT) TQ 
REVERSE, FOR EXAMPLE, IF THE CURRENT LIST 15: 


2343516789 
AND YOU REVERSE 4, THE RESULT WILL BE: 
543216787 
NOW IF YOU REVERSE 5, YOU WIN} 
1234567869 
NO DOUBT YOU VILL LIKE THIS GAME, BUT 
IF YOU WANT TO QUIT, REVERSE 0 (ZERO). 
НЕКЕ WE 00 ... THE LIST IS: 
245 § 9 6 3 7 8 
HOU HANY SHALL I REVERSE? 9 
8 7 3 691542 
HOU HANY SHALL I REVERSE? 4 
6 37 879 15 4 2 
HOW HANY SHALL I REVERSE? 5 
? 87 38 1 54 2 
HOU HANY SHALL I REVERSE? 9 
245 1637 8 9 
HOW NANY SHALL I REVERSE? 3 
594216 3 7 8 9 
HOU MANY SHALL I REVERSE? 4 
1245 6378 7? 
HOW NANY SHALL I REVERSE? 4 
$65 4217 8 9 
HOW MANY SHALL I REVERSE? 4 
435.832 178 9 
HOW MANY SHALL I REVERSE? 3 
& 5 4939 217 8 9 
HOU HANY SHALL I REVERSE? 6 
12 345868228 9 
YOU UON IT IN 10 MOVES!!! 


TRY AGAIN (YES OR ND)? NO 


D.K. HOPE YOU HAD FUN!! 


545216799 


10 PRINT TAB(32); REVERSE" 

20 PRINT TABCIS) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
30 PRINT:PRINT:PRINT 

100 PRINT "REVERSE -- A GAME OF SKILL": PRINT 

130 DIM A(20) 

140 REN *** NzNUHBER OF NUMBERS 

150 Кг? 

140 PRINT "DO YOU WANT THE RULES"; 

170 INPUT A$ 

180 IF A$="HO" THEN 210 

190 G0SUB 710 

200 REM *** MAKE А RANDOM LIST ACH) TO ACN) 

210 AC INTCOUCT)eRNDCT) +2) 

220 FOR K=2 TD H 

230 A(K)=INT(N*RND(1)+1) 

240 FOR J=t TO K-t 

250 IF ACK}=ACJ) THEN 230 

260 NEXT J: NEXT K 

280 REM **e PRINT ORIGINAL LIST AND START GAME 

290 PRINT: PRINT "HERE WE GO ... THE LIST IS:" 

310 Тг0 

320 GOSUB 610 

330 PRINT "HOU HANY SHALL I REVERSE"; 

340 INPUT R 

350 IF R=0 THEN 520 

360 IF К<ЕН THEN 390 . 

370 PRINT "OOPS! TOO MANY! І CAN REVERSE AT HÜST";N: GOTO 330 
390 T=T+1 

400 КЕН ee REVRESE R NUMBERS AND PRINT HEU LIST 

410 FOR Km) TO INT(R/2) 

420 Z=A(K) 

430 A(K)=A(R-K+1) 

440 A(R-K+1)=Z 

450 NEXT K 

460 GOSUB 410 

470 КЕҢ *** CHECK FOR А UIN 

480 FOR K=1 TO N 

490 IF (КЖК THEN 330 

500 NEXT K 

$10 PRINT "YOU WON IT IN";T;"HOVES! T 1^: PRINT 

520 PRINT 

530 PRINT "TRY AGAIN (YES OR NO)"; 

540 INPUT AS 

550 IF AS="YES" THEN 210 

560 PRINT: PRINT "D.K. HOPE YOU HAD FUN!I": GOTO 999 

600 КЕН *** SUBROUTINE TO PRINT LIST 

610 PRINT: FOR Ке! TO N: PRINT A(K);: NEXT K 

650 PRINT: PRINT: RETURN 

700 REM *** SUBROUTINE TO PRINT THE RULES 

710 PRINT: PRINT "THIS IS THE GAME OF ^REVERSE^. TO UIN, ALL YOU HAVE" 
720 PRINT "TO DO IS ARRANGE A LIST OF NUMBERS (1 THRQUGH";N;")" 
730 PRINT "IN NUNERICAL ORDER FROM LEFT TO RIGHT. TO HOVE, YOU" 
740 PRINT "TELL HE HOU MANY NUMBERS (COUNTING FRON THE LEFT) TO" 
750 PRINT "REVERSE. FOR EXAHPLE, IF THE CURRENT LIST IS:" 
760 PRINT: PRINT "2 34 5 1 á 7 8 9" 

770 PRINT: PRINT "AND YOU REVERSE 4, THE RESULT WILL BE:" 

780 PRINT: PRINT "54321246289?" 

290 PRINT: PRINT "NOU IF YOU REVERSE 5, YOU WIN!" 

800 PRINT: PRINT "1234 5 6 7 8 ?": PRINT 

810 PRINT "NO DOUBT YOU WILL LIKE THIS GAME, BUT" 

820 PRINT "IF YOU WANT TO QUIT, REVERSE 0 (ZERO)."s PRINT: RETURN 
999 END 
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Rock, Scissors, 


Paper 


Remember the game ої rock- 
scissors-paper. You and your oppo- 
nent make a motion three times with 
your fists and then either show a flat 
hand (paper), fist (rock), or two fingers 
(scissors). Depending upon what is 
shown, the game is atie (both show the 
same) or one person wins. Paper wraps 
up rock, so it wins. Scissors cut paper, 
so they win. And rock breaks scissors, 
so it wins. 

In this computerized version of rock- 
scissors-paper, you can play up to ten 
games vs. the computer. 

Charles Lund wrote this game while 
at the American School in The Hague, 
Netherlands. 


GAHE OF ROCK, SCISSORS, PAPER 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


10 PRINT TAB(21);"GAHE OF ROCK, SCISSORS, PAPER" 

20 PRINT ТАВ(15); "CREATIVE COMPUTING NORRISTOWN, NEW JERSEY" 
25 PRINT:PRINT:PRINT 

30 INPUT "HOW MANY GAHES";G 

40 IF ӨСІ THEN 60 


50 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT NANY."; GOTO 30 


60 FOR G=1 Т0 Q 

70 PRINT: PRINT "GAME NUMBER"; 6 

80 X=INT(RND(1)*3+1) 

90 PRINT "S#ROCK...2*SCISSORS...1=PAPER" 

100 INPUT "1...2...3...UHAT^S YOUR CHOICE" ;K 

10 IF (K-1)#(K-2)#(K-3}<>0 THEN PRINT "INVALID.": GOTO 90 
120 PRINT "THIS 18 MY CHOICE..." 

130 ON X GOTO 140,150,140 

140 PRINT ".. PAPER": GOTO 170 

150 PRINT "...SCISSORS": GOTO 170 

160 PRINT "...ROCK" 

120 IF X=K THEN 250 

180 IF X>K THEN 230 

190 IF X=1 THEN 210 

200 PRINT "YOU UIN! I!":H-H*1: GOTO 260 

210 IF К<3 THEN 200 

220 PRINT "WOW! I WINE! I"sC=C+1:60T0 260 

330 IF KO1 OR XO3 THEN 220 

240 GOTO 200 

250 PRINT "TIE GAME. NO WINNER." 

280 NEXT 6 

270 PRINT: PRINT "HERE IS THE FINAL GAME SCORE:" 
280 PRINT "I HAVE WON" Ci "GAHE(S) ." 

290 PRINT “YOU HAVE UON" H "GAME(S)." 

300 PRINT "AND" ;Q-(C+H);“GAME(S) ENDED IN A TIE." 
310 PRINT: PRINT "THANKS FOR PLAYING!I" 

320 END 
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HOW MANY GAMES? 10 


GAME NUHBER 1 

З=ВОСК.. .2=5С198085... 1=РАРЕВ 
1...2...3... UHAT^S YOUR CHOICE? 
THIS IS HY CHOICE... 

oo PAPER 

UOU! I UIN!!! 


BAHE NUMBER 2 
З=КОСК...2=5С155089.., 1 =РАРЕК 
1...2...3...ШНАТ”5 YOUR CHOICE? 
THIS IS HY CHOICE... 

w+ «КОСК 

UOU! I Witt 


САНЕ NUMBER 3 
3=RDCK...2#SCISSORS. .. 1-PAPER 
1...2...3...UHAT^S8 Y UR CHOICE? 
THIS IS MY CHOICE... 

«PAPER 

YOU UIN!!! 


GAHE NUNBER 4 
3=RDCK...2#SCISSORS...l1=PAPER 
1...2...3...UHAT S YOUR CHOICE? 
THIS IS HY CHOICE... 

«ROCK 

YOU VIN!!! 


GAHE NUMBER 5 
3=RDCK...2=SCISSORS...1=PAPER 
1...2...3,..UHAT^S YOUR CHOICE? 
THIS IS HY CHOICE... 
SCISSORS 

YOU VIN!!! 


GAHE NUMBER 6 
3=ROCK...2=SCISSORS...l=PAPER 
1...2...2...ШНАТ”5 YOUR CHOICE? 
THIS IS НҮ CHOICE... 

oo SCISSORS 

TIE GAME, NO WINNER, 


GAME NUMBER 7 
3sROCK...2-8C1880RS. . . 1 -PAPER 
1...2...3.. WHATS YOUR CHOICE? 
THIS IS MY CHOICE... 

» ROCK 

WOW) I MINIM! 


GAME NUMBER 8 

S=ROCK, «.2*SC1SSORS,..1=PAPER 
1...2...2...ШНАТ”5 YOUR CHOICE? 
THIS IS MY CHOICE... 

«+ ROCK 

TIE GAME. NO WINNER. 


GAHE NUMBER 9 
S=ROCK...2=SCISSORS... 1=PAPER 
1.,..2...3...UHAT^S YOUR CHOICE? 
THIS IS HY CHOICE... 

» «ВОСК 

YOU UIN! ( !- 


GAME NUMBER 10 
JzsROCK...2-8CISSORS... 1«PAPER 
1...2...3...ШНАТ”5 YOUR CHOICE? 
THIS IS HY CHOICE... 

+ ROCK 

WOW I UIN!!! 


HERE 18 THE FINAL GAME SCORE: 
I HAVE WON 4 GAMES). 

YOU HAVE YON 4 GANE(S). 

AND 2 BAHE(S) ENDED IN A TIE. 


кә 


Roulette 


This game simulates an American TYPES OF BETS 
Roulette wheel; "American" because it THE NUMBERS 1 ТО 36 SIGNIFY A STRAIGHT BET 
has38 number compartments (1 to 36, 0 ON THAT NUMBER 
and 00). The European wheel has 37 THESE PAY OFF 35:1 
numbers (1 to 36 and 0). The Bahamas, А 
Puerto Rico, апа South American THE 2:1 BETS ARE: 
uerto ) n. 37) 1-12 40) FIRST COLUMN 
countries are slowly switching to the 38) 13-24 41) SECOND COLUMN 
American wheel because it gives the 39) 25-36 42) THIRD COLUMN 
house a bigger percentage. Odd and THE EVEN HONEY BETS ARE: 
even numbers alternate around the 43) 1-18 46) DDD 
wheel, as do red and black. The layout 44) 19-36" 27) RED 
of the wheel insures a highly random 45) EVEN A8) BLACK 
number pattern. In fact, roulette wheels 
are sometimes used to generate tables 49)0 AND 50100 PAY OFF 35:1 
of random numbers, NOTE: 0 AND 00 DO NOT COUNT UNDER ANY 
In this game, you may bet from $5 to BETS EXCEPT THEIR OUN 
$500 and you may bet on red or black, UHEN I ASK FOR EACH BET,TYPE THE NUMBER 
odd or even, first or second 18 AND THE AMOUNT,SEPARATED BY à СОММА 
numbers, a column, or single number. FOR EXAHPLE:TO ВЕТ $500 ON BLACK,TYPE 48,500 
You may place any number of bets on WHEN I ASK FOR А BET 
each spin of the wheel. . MINIMUM BET IS $5,NAXIMUM IS $500 
There is no long-range winning 
strategy for playing roulette. However, HOU MANY BETS? 2 
a good strategy is that of "doubling." RUNDER 1 ! 21100, 
First spin, bet $1 on ап even/odds bet SPINNING ' 
(odd, even, red, or black). If you lose, 
double your bet to $2. If you lose again, 
double to $4. Continue to double until 20 BLACK 
you win (ie. you break even on a YOU LOSE 100 DOLLARS ON BET 1 
losing sequence). As soon as you win, Y0U LOSE 100 DOLLARS ON BET 2 
bet $1 again, and after every win, bet 
$1. Do not ever bet more than $1 unless TOTALS: ME 90200 o 
you are recuperating losses by dou- AGAIN? YES 
bling. Do not ever bet anything but the HOW MANY BETS? 4 
even odds bets. Good luck! NUMBER 1 ? 15,20 
NUMBER 2 7 21,20 
NUMBER 3 7 40,100 
NUMBER 4 ? 49,10 
SPINNING 
ROULETTE 0 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
YOU LOSE 20 DOLLARS ON BET 1 
YOU LOSE 20 DOLLARS ON BET 2 


ENTER CURRENT DATE (AS IN "JANUARY 23, 19787) -? DECEMBER 2, 1977 YOU LOSE 100 DOLLARS ON BET 3 
WELCOME TO THE ROULETTE TABLE YOU WIN 350 DOLLARS ON BET 4 
DO YOU WANT INSTRUCTIONS? YES TOTALS: NE you 
99990 1019 
THIS IS THE BETTING LAYOUT AGAIN? NO 
(#=RED) TO ИНОН SHALL 1 MAKE THE CHECK? А. COMPUTER 

1% 2 a i ta uS 

4 БЫ á CHECK NO. 22 

73 8 9% 

10 i 1" DECEMBER 2, 1977 
13 14* 15 

16+ 9 18* PAY TO THE ORDER OF~-~-- A. CONPUTER----- $ 1010 

i?* 20 21% 
22 2% 24 


с-----2......... THE HENORY BANK OF VIRGINIA 


28 2? E THE COMPUTER 


00 0 СОМЕ BACK SOON! 
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10 PRINT TABC32); "ROULETTE" 


20 PRINT ТАВС15) "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 


30 PRINT:PRINT:PRINT 


40 PRINT "ENTER CURRENT DATE (AS IN JANUARY 23, 1978") -"; 


50 INPUT D$,E$ 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1180 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1230 
1280 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1460 
1670 
1680 


REN-ROULETTE 

REH-DAVID JOSLIN 

PRINT "UELCOHE TO THE ROULETTE TABLE" 
PRINT 

PRINT "DO YOU WANT INSTRUCTIONS"; 
INPUT Y$ 

IF LEFT$(¥$,1)="N" THEN 1550 
PRINT 

PRINT “THIS IS THE BETTING LAYOUT" 
PRINT "(жәке)" 

PRINT 

PRINT " js 2 jen 

PRINT " 4 $5 4 

PRINT " 7s 8 9з" 

PRINT "10 H 12s" 

PRINT “-------------.- " 

PRINT "t3 14% 1$" 

PRINT "14* 17 18+" 

PRINT "19+ 20 21s" 

PRINT "22 23+ 24" 

PRINT “--------------- " 

PRINT "25% 26 37a" 


PRINT "28 29 зо" 

PRINT “31 32» 3" 

PRINT "34e 35 36+" 

PRINT “-------------.. " 

PRINT " 00 0 Ы 

PRINT 

PRINT "TYPES OF BETS" 

PRINT 

PRINT "THE NUMBERS 1 TO 34 SIGNIFY A STRAIGHT BET" 


PRINT "ON THAT NUMBER" 

PRINT "THESE PAY OFF 35:1" 

PRINT 

PRINT "THE 2:1 BETS ARE:" 

PRINT " 37) 1-12 40) FIRST COLUMN" 
PRINT " 38) 13-24 41) SECOND COLUMN” 
PRINT " 39) 25-36 42) THIRD COLUMN" 
PRINT 

PRINT "THE EVEN HONEY BETS ARE:" 

PRINT " 43) 1-18 46) 00р" 

PRINT " 44) 19-36 47) RED" 


PRINT " 45) EVEN 48) BLACK" 

PRINT 

PRINT " 4930 AND 50)00 PAY OFF 35:1" 

PRINT " NOTE: 0 AND 00 DO NOT COUNT UNDER ANY" 
PRINT " BETS EXCEPT THEIR GUN" 

PRINT 


PRINT "WHEN I ASK FÜR EACH BET, TYPE THE NUMBER" 
PRINT "AND THE AHOUNT,SEPARATED BY А Сонна" 
PRINT "FOR EXAMPLE:TO ВЕТ $500 ON BLACK,TYPE 48,500" 
PRINT "WHEN I ASK FOR A BEI" 

PRINT 

PRINT "HININUN BET IS $5,NAXIMUM IS $500" 
PRINT 

REH-PRÜORAM BEGINS HERE 

ВЕМ-ТҮРЕ OF BET(NUNBER) ODDS 

REM DON'T NEED TO DIMENSION STRINGS 

DIM B(100),C(100),T(100), X38) 

DIM 4050) 

FOR 1=1 TO 38: X(I)z0: NEXT 1: REM МАТ X=ZER 
P=1000 

0=100000. 

PRINT “HOW MANY BETS"; 

INPUT Y 

IF YC) OR YOINT(Y) THEN 1630 

FOR Isi TO 50: А(1)=0: NEXT I: REM MAT ASZER 
FOR C=1 TO Y 

PRINT "NUMBER: C! 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1760 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
3080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2170 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


INPUT X,Z 
B(C)=Z 

Тес) =X 

IF XX1 GR X250 OR X<DINT(X) THEN 1480 
IF Z<t OR ZOINT(Z) THEN 1480 
IF 155 OR 22500 THEN 1480 

IF A(X)=0 THEN 1780 

PRINT "YOU НАДЕ THAT BET ONCE ALREADY, DUM~DUN" 
8070 1680 

ТУТЫ 

NEXT C 

PRINT "SPINNING" 

PRINT 

PRINT 

S=1NT(100%RND(1)) 

IF S=0 OR 5238 THEN 1830 
X(8)2X(8)41 

IF 8537 THEN 1920 

IF 5237 THEN 1900 

PRINT "00" 

8070 2020 

PRINT "0" 

вото 2020 

RESTORE 

FOR Ізі TQ 18 

READ R 

IF R=S THEN 2000 

NEXT I 

AS="BLACK" 

PRINT 549 

8070 2020 

AS="RED" 

GOTO 1980 

PRINT 

FOR C=1 TO Y 

IF TC) Q37. THEN 2710 

DN T(C)-36 GOTO 2090,2190,2220,2250,2300,2350,2400,2470,2500 
ON T(C)-45 GOTO 2530,2550,2630 
GOTO 2710 

STOP 

REH 1-12(37) 2:1 

IF 8 <= 12 THEN 2150 

PRINT “YOU LÜSE";B(C);"DOLLARS QN BET ";C 
D=D4B(D) 

PzP-B() 

GOTO 2180 

PRINT "YOU UIN ";B(C)*2; DOLLARS ON BET ";C 
DzD-B(C)s2 

PsPABCCO2 

GOTO 2810 

ВЕН 13-24038) 2:1 

IF 5212 AND S425 THEN 2150 
8010 2110 

ВЕН 25-36039) 2:1 

IF 8224 AND 8937 THEN 2150 
GOTO 2110 

КЕН FIRST COLUMN(40) 2:1 

FOR Ізі TO 34 STEP 3 

IF S=I THEN 2150 

НЕХТ I 

GOTO 2110 

REM SECOND COLUHN(41) 2:1 


3310. FOR 1=2 TO 35 STEP З 


2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
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IF 5=1 THEN 2150 
NEXT I 

GOTO 2110 

REM THIRD COLUMN(42) 2:1 
FOR 125 TO 36 STEP 3 
IF 8:1 THEN 2130 
NEXT I 

GOTO 2110 

REN 1-18(43) 1:1 

IF 5<19 THEN 2430 
GOTO 2110 


2430 PRINT "YOU WIN ";B(C) "DOLLARS ON BET";C 2890 PRINT "YOU BROKE THE HOUSE!" 


2440 D=D-B(C) 2900 Р=101000. 

2450 P=P+B(C) 2910 GOTO 2960 

2460 GOTO 2810 2920 PRINT "AGAIN"; 

2470 ВЕН 19-36044) 1:1 2930 INPUT Y$ 

2480 IF 8437 AND 5218 THEN 2430 2940 IF LEFTS(YS,1)="Y" THEN 1630 

2490 GOTO 2110 2950 DATA 1,3,5,2,9,12,14,16,18,19,21,23,25,27,30,32,34, 36 
2500 ВЕН EVEN(45) 1:1 2960 IF PCI THEN 3190 

2510 IF S/221NT(S/2) AND S37 THEN 2430 2970 PRINT "TO WHOH SHALL I HAKE THE CHECK"; 

2520 GOTO 2110 2980 INPUT B$ 

2530 ВЕН 0DD(46) 1:1 2990 PRINT 

2540 IF S/2<>INT(S/2) AND 9<37 THEN 2430 3000 FOR 151 Т0 72: PRINT "-";: NEXT I: ВЕН PRINT 72 DASHES 
2550 GOTO 2110 3010 PRINT TAB(SO); "CHECK NO. “SINT (100#RND(1)) 

2560 REH RED(A7) 1:1 2020 PRINT 

2570 RESTORE 3030 GOSUB 3230 

2580 FÜR 151 TO 18 3040 PRINT TAB(40);H$ 

2590 READ R 3050 PRINT 

2600 IF S-R THEN 2430 3060 PRINT 

2610 NEXT I 3070 PRINT "PAY TO THE ORDER 0Ғ----- "3B$;"----- $5 

2620 GOTO 2110 3080 PRINT P 

2630 ВЕН BLACK(48) 1:1 3090 PRINT 

2640 RESTORE 3100 PRINT 

2650 FOR 151 TO 18 3110 PRINT TAB(10),"THE MEMORY BANK OF VIRGINIA" 

2660 READ R 3120 PRINT 

2670 IF S-R THEN 2110 3130 PRINT TAB(40),"THE COMPUTER" 

2680 NEXT I 3140 PRINT ТАВ(40)"---------- Х----- " 

2690 IF 5536 THEN 2110 3150 PRINT 

2700 GOTO 2430 3160 FOR 1=1 TO 72: PRINT "-";: NEXT I 

2710 REM--11036,0,00(1-36,49,50)35:1 3170 PRINT “CONE BACK SOON!" 

2720 IF T(C)<49 THEN 2760 3180 GOTO 3210 

2730 IF 1(C)=49 AND 8-37 THEN 2780 3190 PRINT "THANKS FOR YOUR MONEY" 

2740 IF T(C)=50 AND 5-38 THEN 2780 3200 PRINT "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL" 
2750 GOTO 2110 3210 PRINT 

2760 IF T(C)s8 THEN 2780 3220 GOTO 3420 

2770 GOTO 2110 3230 REH 

2780 PRINT "YOU UIN ";B(C)*35;" DOLLARS ON ВЕТ ";C 3240 REH THIS ROUTINE RETURNS THE CURRENT DATE IN M$ 
2790 D=D-B(C) #35 3250 REH IF YOU HAVE SYSTEM FUNCTIONS TO HANDLE THIS 
2800 Р=Р+В(С)+35 3260 REH THEY CAN BE USED HERE. HOWEVER IN THIS 
2810 NEXT C 3270 КЕҢ PROBRAM, WE JUST INPUT THE DATE АТ ІНЕ SIART OF 
2820 PRINT 3280 REN THE GAME. 

2830 PRINT "TOTALS:","HE", "YOU" 3290 REM 

2840 PRINT " “,D,P 3300 REM THE DATE IS RETURNED IN VARIABLE H$ 

2850 IF P>0 THEN 2880 f 3310 HS=DSe", "HES 

2860 PRINT “OOPS! YOU JUST SPENT YOUR LAST DOLLAR" 3320 RETURN 

2870 GOTO 3190 3420 END 


2880 IF 120 THEN 2920 
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Russian Roulette 


(© 


paur, , 
"BIN Q 


THIS IS А GAHE OF 2252222)» RUSSIAN ROULETTE. 


EB * HERE I9 A REVOLVER. 


TYPE 717 TO SPIN CHAMBER AND PULL TRIGGER, 
TYPE 727 TO GIVE UP. 


In this game, you are given by the P CLICK - ' 
computer a revolver loaded with опе 
bullet and five empty chambers. You lue - 
spin the chamber and pull the trigger 
by inputting a "1," or, if you want to 11 
quit, input a "2." You win if you play ten ~ CLICK ~ 
times and are still alive. "1 
Tom Adametx wrote this program - CLICK = 
while a student at Curtis Jr. High 
School in Sudbury, Massachusetts. T1 
~ CLICK - 
1 


BANG!!!!! — YDU^RE DEAD! 
CONDOLENCES WILL BE SENT TO YOUR RELATIVES. 


«НЕХТ VICTIM... 
TYPE 717 TO SPIN CHAMBER AND PULL TRIGGER. 
ТҮРЕ 727 TO GIVE UP. 
GO? 2 
CHICHENIT1111 


os NEXT VICTIM... 
TYPE 717 TO SPIN CHAMBER AND PULL TRIGGER. 
TYPE 727 TO GIVE UP. 


RUSSIAN ROULETTE gor 1 

CREATIVE COMPUTING MORRISTOWN, NEU JERSEY ~ CLICK - 
14 

1 PRINT TAB(28); "RUSSIAN ROULETTE" - CLICK - 

2 PRINT TAB(IS);"CREATIVE COMPUTING  MORRISTOUN, NEW JERSEY" 

3 PRINT SPRINT: PRET 11 

5 PRINT “THIS IS A GAME OF 22222222) RUSSIAN ROULETTE." - CLICK - 

10 PRINTSPRINT "HERE IS А REVOLVER." 

20 PRINT “ТҮРЕ ^i^ TO SPIN CHAMBER AND PULL TRIGGER." 71 

22 PRINT "ТҮРЕ 927 TO GIVE UP." - CLICK - 

23 PRINT "60"; 

25 N=0 Ж 

30 INPUT I - CLICK - 

31 IF 102 THEN 35 

32 PRINT * — CHICKEN H1" ?1 

33 GOTO 72 - CLICK - 

35 нене! 

40 IF RND(1)>.833333 THEN 70 um 

45 IF НУ10 THEN 80 - CLICK - 

S0 PRINT "- CLICK -" 

&0 PRINT: GOTO 30 E 

70 PRINT “ —  BANG!III! — YOU RE DEAD!" - CLICK - 

71 PRINT “CONDOLENCES WILL BE SENT TO YOUR RELATIVES." 

22 PRINT:PRINT:PRINT 11 

75 PRINT *...NEXT VICTIM. ..":60T0 20 - CLICK - 

80 PRINT “YOU UIN!!!" 

85 PRINT "LET SOMEONE ELSE BLOW HIS BRAINS QUI." зі 

90 GOTO 10 BANG!I!!1! YOU'RE DEAD! 

99 END CONDOLENCES WILL BE SENT TO YOUR RELATIVES. 
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Salvo 


The rules are not explained by the 
program, so read carefully this descrip- 
tion by Larry Siegel, the program 
author. 

SALVO is played on a 10x10 grid or 
board using an x,y coordinate system. 
The player has 4 ships: battleship (5 
squares), cruiser (3 squares), and two 
destroyers (2 squares each). The ships 
may be placed horizontally, vertically, 
or diagonally and must not overlap. 
The ships do not move during the 
game 

As long as any square of a battleship 
still survives, the playeris allowed three 
shots, fora cruiser 2 shots, and for each 
destroyer 1 shot. Thus, at the begin- 
ning of the game the player has 
3+2+1+1=7 shots. The player enters all 
of his shots and the computer tells what 
was hit. A shot is entered by its grid 
coordinates, x,y. The winner is the one 
who sinks all of the opponent's ships. 

Important note: Your ships and the 
computer's ships are located on 2 
separate 10x10 boards. 

Author of the program is Lawrence 
Siegel of Shaker Heights, Ohio. 


YOU HAVE 7 SHOTS. 


SALVO 
CREATIVE COMPUTING 

MORRISTOUN, NEW JERSEY TURN 1 
ENTER COORDINATES FOR... 735,1 
BATTLESHIP 75,2 

? 10,10 75,3 
19,9 75,4 

? 8,8 7 5,5 
72,2 7 5,6 

? 6,6 T3 
CRUISER YOU H 
73,5 I 

1 2,6 10 8 
71,7 10 10 
DESTROYER<A> 8 10 
71,10 ? 9 

* 2,10 ? 10 
DESTROYER<B 10 9 
18,7 8 8 

7 6,8 

DO YOU WANT TO START? YES 

DO YOU WANT TO SEE MY SHOTS? YES I HIT YOUR BATTLESHIP 


IT HY DESTROYER<B>. 
HAVE 7 SHOTS. 


I HIT YOUR BATTLESHIP 
1 HIT YOUR BATTLESHIP 
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TURN 2 
YOU HAVE 7 SHOTS. 
74,1 


LEE NS ND DE 


7 SHOTS. 


о = ° 0 O x B» 


E 
6 


— OS CA A» G: мо — 
OM CR A GIN 


2 
I HIT YOUR BATTLESHIP 


TURN 3 


YOU HAVE 7 SHOTS. 
1 


- 


MO oe Caj — Qj — < Z d СЛ O4 — ыы 


чо < < < om < 


OU HIT HY DESTROYER<B>. 


E á SHOTS. 


= СЕ OO. Ох Ох КЖ, 


Н 
T 
Н 
? 
T 
? 
Y 
I 


ñ 


TURN 4 
YOU HAVE 7 SHOTS. 
1,1 


7 
? 
T 
7 
7 
7 
Y 
? 
І 


> 
tB 
E 


1 HIT YOUR CRUISER 


2 
2 
1 
3 
3 
4 
SHOT THERE BEFORE ON TURN 3 
4 
Ц 
3 
2 
3 


TURN 5 
YOU HAVE 7 SHOTS. 
11,5 


< w. 


NN < ZZ OO Oe ON 


ІТ MY DESTRDYER<A>. 
E 6 SHOTS. 


Zon enn m — 


? 
? 
7 
7 
7 
7 
М 
1 


А 


“OO ль — Сл с 
о 

ы =n oe 
ы 


TURN 6 
YOU HAVE 7 SHOTS. 


1 
7 


ІТ HY DESTROYER<A>. 


AVE 5 SHOTS. 


c 2 ь 04 сь SEND OD co O. > 


TURN 7 

YOU HAVE 7 SHOTS. 

т 8,3 

8,5 

8,7 

10,3 

10,5 

10,7 

10,9 

YOU HIT MY CRUISER. 
YOU HIT MY CRUISER. 


CEEE EE] 


I HIT YOUR CRUISER 


TURN 8 
YOU HAVE 7 SHOTS. 


TURN 9 
YOU HAVE ? SHOTS. 


` ч тое ч 


= xG 9-994 
- 


D- 
O. RN SON GEN CR ы 


1 
1 
1 
7 
т 
T 
Li 
I 


E 5 SHOTS. 


о fet GE OD шы 


1 HIT YOUR CRUISER 


TURN 10 
YOU HAVE 3 SHOTS. 


TURN. 11 

YOU HAVE 5 SHOTS. 
75, 

0 


? 
? 
7 
? 

0 


9 
4,1 
2,9 
8,1 
? 9,9 
YOU 8 
т 8,8 
You H 


I HAVE 3 SHOTS. 
t 9 


TURN 12 
YOU HAVE 5 SHOTS. 
13,9 


HOT THERE BEFORE ON TURN 9 


IT MY BATTLESHIP. 
YOU HIT MY BATTLESHIP. 


14,9 
76,9 
7 8,9 
7 10,10 


IT MY CRUISER. YOU HIT MY BATTLESHIP. 
E 3 SHÜTS. YOU HIT MY BATTLESHIP. 
2 I HAVE 0 SHOTS. 

10 YOU HAVE WON. 


2 
4 
6 
8 YOU HIT MY BATTLESHIP. 
H 
Vi 


I HIT YOUR DESTROYER<A> 


71000 
71010 
71020 
71030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1405 
1410 
1415 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


PRINT TAB(33);"SALVO" 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
PRINT:PRINT:PRINT 

КЕН 


DIM 4(10,10),8(10,100,C022,D(7) ECI2) (12) 6012) ,HE12) ,K (10,10) 


18-0 
FOR W=1 TO 12 

EQD2-1 

H(U)=-1 

NEXT U 

FOR Ха! TO 10 

FOR Yvt TO 10 

B(X,Y)20 

NEXT Y 

NEXT X 

FOR X=1 TO 12 

F(X)=0 

6(Х)=0 

NEXT X 

FOR Xs1 TO 10 

FOR Y=1 TO 10 

A(G,Y)20 

NEXT Y 

NEXT X 

FOR К=4 TO 1 STEP -1 

06=0 

60808 2910 

DEF FNHA(K)=(5-KR)*3-20*INT(K/4)+SGN(K-1)-1 
DEF FNB(K)=K+INT(K/4)-SDN(K-1) 
IF UsU2*UeU2«0 THEN 1260 

IF YSUsFNB(O 10 THEN 1260 

IF Y+V*FNB(K)<I THEN 1260 

IF X+V2*FHB(K)>10 THEN 1240 

IF X+U2*FNB(K)<1 THEN 1260 
Uá=U6+1 

IF U6>25 THEN 1190 

FOR Z=0 Т0 FNB(K) 
F(Z+FHA(K))=X+9221 
8(Z+FNA(K))=Y+9*Z 

NEXT Z 

UBcFNACU 

IF US>US*FNB(K) THEN 1460 

FOR 22: UB TO U8+FNB(K) 

IF UBX2 THEN 1450 

FOR Z3=1 TO 08-1 

IF SOR(CF(CZ3)-F(220)^2 + (6(23)-6(22))72) < 3.59 THEN 1240 
NEXT 23 

WEXT 22 

FOR Z=0 TO ҒИВ(К) 
А(Е(1+08),0(7+18))=,5+86Н(К-1)ж(К-1.5) 
NEXT 2 

NEXT K 

PRINT "ENTER COORDINATES FOR..." 
PRINT "BATTLESHIP" 

FOR Ха! TO 5 

INPUT 1,2 


143 


1540 
1550 
1560 
1570 
1560 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 


B(Y,Z)=3 
NEXT X 

PRINT "CRUISER" 

FOR Ха! TO 3 

INPUT Y,Z 

B(Y,Z)=2 

NEXT X 

PRINT “DESTROYER<A>" 
FOR X=1 TO 2 

INPUT Y,Z 

B(Y,Z)=1 

NEXT X 

PRINT "DESTROYER<B>” 
FOR X=1 TO 2 

INPUT Y,2 

B(Y,Z)=.5 

NEXT X 

PRINT "DO YOU WANT TO START": 
INPUT J$ 

IF J$O"UHERE ARE YOUR SHIPST" THEN 1890 
PRINT “BATTLESHIP” 

FOR Z=1 TO 5 

PRINT F(2);8(2) 

NEXT Z 

PRINT "CRUISER" 

PRINT F(6)36(6) 

PRINT F(7)36(7) 

PRINT F(8);6(0) 

PRINT "DESTROYERCAD" 
PRINT F(9)36(9) 

PRINT F(10);8(10) 
PRINT *DESTROYERCB>™ 
PRINT F(G10;6010) 
PRINT F(42)36(12) 

8070 1710 

£20 

PRINT "DO YOU UANT TO SEE MY SHOTS"; 
INPUT K$ 

PRINT 

IF J$<y"YES" THEN 2620 
REHs*2993992t9€349*ywssSTART 
IF J$O"^YES* THEN 1990 
сесні 

PRINT 

PRINT "TURN";C 

^=0 

FOR U=.5 TO 3 STEP .5 
FOR Xe1 TO 10 

FOR Y=1 TO 10 

IF B(X,Y)-U THEN 2070 
NEXT Y 

NEXT X 

60T0 2080 
AZAFINT(U4.5) 

NEXT U 

FOR W=1 TO 7 

сар-0 

D(U)=0 

ТЫР 

8(0)20 

НЕХТ U 

P3=0 

FOR X=1 TO 10 

FOR Y=1 TO 10 

IF A(X,¥)>10 THEN 2200 
P3=P3+1 

NEXT Y 

NEXT X 

PRINT "YOU HAVE" zA; "SHOTS." 
IF P3>=A THEN 2260 
PRINT “YOU HAVE MORE SHOTS THAN THERE ARE BLANK SQUARES." 
GOTO 2890 

IF А00 THEN 2290 
PRINT "I HAVE ШОН," 
STOP 

FÜR U=1 TO A 

INPUT X,Y 

IF X<>INTOX) THEN 2370 
IF 210 THEN 2370 

IF X<1 THEN 2370 

IF YOINT(Y) THEN 2370 
IF Y>10 THEN 2370 

IF Y>=1 THEN 2390 
PRINT "ILLEGAL, ENTER AGAIN." 
8070 2300 

IF A(X,Y)>10 THEN 2440 
C(U)=X 

D(U)=Y 

NEXT 0 

8070 2460 

PRINT "YOU SHOT THERE BEFORE ОН TURN";A(X,Y)-10 


2450 
2460 
2470 
2480 
2490 
2500 
2510 
2320 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2460 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
290 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3040 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3140 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 


8070 2300 

FOR U=1 TO А 

IF ACCOD,DCODD 223 THEN 2540 
IF ACC(U),D(U))=2 THEN 2560 
IF ACC(OD,D(ODD =] THEN 2580 
IF ACD 000) 25.5. THEN 2600 
ACCOD,DODO€104C 

NEXT Ú 

80T0 2620 

PRINT "YOU HIT MY BATTLESHIP." 
60T0 2510 

PRINT “YOU HIT MY CRUISER." 
GOTO 2510 

PRINT "YOU HIT MY DESTROYER<A>." 
8070 2510 

PRINT “YOU HIT MY DESTROYER<B>." 
GOTO 2510 

Aco 

IF J$z"YES" THEN 2670 

Сен 

РКІНТ 

PRINT "TURN";C 

Aco 

FOR U=.5 TO 3 STEP .5 

FOR X=1 TO 10 

FOR Y=1 TO 10 

IF AO,Y)-0. THEN 2750 

NEXT Y 

NEXT X 

SOTO 2740 

ATATINT (U+ .3) 

NEXT U 

P3=0 

FOR X=1 TO 10 

FOR Y=1 TO 10 

IF A(X, Y)>10 THEN 2820 
P3=P3+1 

NEXT Y 

NEXT X 

PRINT "I HAVE";A;"SHOTS," 
IF P324 THEN 2880 

PRINT "I HAVE MORE SHOTS THAN BLANK SQUARES." 
6070 2270 

IF А<›0 THEN 2960 

PRINT "YOU HAVE UON." 

STOP 

XeINT(RNDCT)O1041) 

Ye INT(GNDCUSTOS ) 
V=INT(3*#RHD(1)-1) 
V2BINT(3*RND(1)-1) 

RETURN 

FOR U=1 TO 12 

IF H(U)20 THEN 3800 

NEXT Ú 
REHttts3db3UGóOOEE SOR ERSRANDDN 
u=0 

R3=Q 

80508 2910 

RESTORE 

R2=0 

R3=R3+1 

IF R3>100 THEN 3010 

IF X210 THEN 3110 

IF X20 THEN 3120 

X8 14INT(ONDCUD 62,5) 

8070 3120 
X=TO-INT(RND(1)#2.5) 

IF Ү210 THEN 3160 

IF Y»0 THEN 3270 
Y=I+*INT(RND(1)*2.5) 

80T0 3270 
Y=10-INT(RND(1)92.5) 

8070 3270 

ЕСШ) =Х 

B(U)=Y 

IF UzA THEN 3380 

IF R2=6 THEN 3030 

READ Xi, Yi 

R2=R2+1 

DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 
X=X+X1 

Y=Y+Y1 

IF X>10 THEN 3210 

IF ХХІ THEN 3210 

IF Y>10 THEN 3210 

IF Y<1 THEN 3210 

IF B(X,Y)>10 THEN 3210 

FOR 09=1 TO U 

IF Е(09)<>Х THEN 3350 

IF 6t09)-Y THEN 3210 

NEXT 09 
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3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3690 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3700 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4070 
4100 
4110 
4120 
4130 
4131 
4132 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 


уин 

8070 3180 

IF K$ OO "YES" THEN 2420 

FOR 25:1 TO À 

PRINT Ғ(15);0(75) 

NEXT 25 

FOR U-1 TO A 

IF BCFCW),G(W))=3 THEN 3500 
IF B(F(U),6(U))=2 THEN 3520 
IF BO QGD,GCQU )71. THEN 3560 
IF BC (OD,800)2,5. THEN 3540 
BCF GD,80D) 5104€ 

NEXT Ы 

6070 1950 

PRINT "I HIT YOUR BATTLESHIP" 
GOTO 3570 

PRINT "I HIT YOUR CRUISER" 
GOTO 3570 

PRINT "I HIT YOUR DESTROYER<B>" 
8070 3570 

PRINT "I HIT YOUR DESTROYER<A>" 
FOR Q=1 TO 12 

IF E(Q) O-1 THEN 3730 
E(Q)=10+C 

HCO) =BCF(U) GH) 

НЗ=0 

FOR М2=1 TO 12 

IF H(N2)0H(0) THEN 3450 
43-831 

WEXT H2 

IF H3O INT(HCOLD +. S) HTHINTCINT(H(OÓ) 50/3). THEN 3470 
FOR H2=1 TO 12 

IF H(N2)OH(0) THEN 3710 
ECH2)=~1 

H(M2)=-1 

NEXT H2 

8070 3470 

NEXT 0 

PRINT "PROGRAM ABORT:" 

FOR 0-1 TO 12 

PRINT "E(";0;") =" ЕС ) 
PRINT "H(*,0;") чно) 

NEXT @ 

STOP 
REB*2*0*+44993969659+9293+69391SINDEARRAY 
FOR В=1 TO 10 

FOR S=1 TO 10 

K(R,S)=0 

NEXT S 

NEXT R 

FOR U=1 TO 12 

IF E(U)<10 THEN 4020 

FOR Езі TO 10 

FOR $21 TD 10 

IF B(R,S)<K10 THEN 3920 
K(R,S)=-10000000 

GOTO 4000 

FOR H-SGNCE-R) TO SGNCTO-R) 
FOR N-56N(1-8) TO SON(TO-S) 
IF Nei NtHz0 THEN 2780 

IF BCRtH,S#H)C>E(U) THEN 3980 
K(R,S)2K(R,S)4E(U)-SeINT(H(U)+.5) 
NEXT W 

NEXT H 

NEXT S 

NEXT R 

NEXT U 

FOR R=1 TO À 

F(R)=R 

GCRO-R 

NEXT R 

FÜR R=1 TO 10 

FOR 5=1 Т0 10 

09-1 

FOR Hz1 TQ ñ 

IF KCF OD ,GOD 27K CF (09),6(09)). THEN 4130 
ü9-H 

NEXT H 

IF R>A THEN 4140 

IF R=S THEN 4210 

IF K(R,S)<K(F(Q9),6(09)) THER 4210 
FOR H-1 TO À 

IF РМ) OR THEN 4190 

IF G(N)=S THEN 4210 

NEXT H 

F(09)=R 

B(09)=S 

NEXT 5 

NEXT R 

GOTO 3380 

END 
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Sine Wave 


Did you ever go to a computer show 
and see a bunch of CRT terminals just 
sitting there waiting forlornly for 
someone to give a demo on them. It 
was one of those moments when I was 
at DEC that ! decided there should bea 
little bit of background activity. And 
why not plot with words instead of the 
usual X's? Thus SINE WAVE was born 
and lives on in dozens of different 
versions. At least those CRTs don't 
look so lifeless anymore. 


10 PRINT TAB(30);"SINE WAVE" 

20 PRINT TAB(1S);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT: PRINT: PRINT: PRINT: PRINT 
40 REMARKABLE PROGRAM BY DAVID AHL 
50 В-0 

100 КЕМ START LONG LOOP 

110 FOR T-0 TO 40 STEP .25 

120 А<ІНТ(26%25ж5ІҢ(Т)) 

130 PRINT ТАВ(А); 

140 IF Bet THEN 180 

150 PRINT "CREATIVE" 

160 Bel 

170 GOTO 200 

180 PRINT "COMPUTING" 


190 В=0 
200 NEXT T 
999 END 
SINE WAVE 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
CONPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 


CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COHPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COKPUT ING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
COMPUTING 
CREATIVE 
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This game simulates a slalom run 
down a course with from one to 25 
gates. The user picks the number of 
gates and has some control over his 
speed down the course. 

If you're not a skier, here's your 
golden opportunity to try it with 
minimal risk. If you are а skier, here's 
something to do while your leg is ina 


cast. 
SLALOM was written by J. Panek CONNAND--? RUN 
while a student at Dartmouth College. RATE YOURSELF AS à SKIER, (1-WORST, 3-BEST)? 1 


THE STARTER COUNTS DOUN...5...4...3...2. .. 1... 60! 
YOU^RE OFF! 


HERE COMES GATE #1 
9 Н.Р.Н. 

OPTION? 2 
13 H.P.H. 


HERE COMES GATE W2 
13 М.Р... 
OPTION? 1 
22 W.P.H. 
YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 
YOU TOOK 2.5774 SECONDS 
DO YOU WANT TO RACE AGAIN? YES 
THE STARTER COUNTS DOUN...5...4...3...2... 1... 60! 


SLALOM 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


YOU“ RE OFF! 
HOW MANY GATES DOES THIS COURSE HAVE (1 TO 25)? 12 


HERE COMES GATE R1 


TYPE "INS" FOR INSTRUCTIONS 13 М.Р.Н. 
TYPE "MAX" FOR APPROXIMATE MAXIMUN SPEEDS OPTION? 3 
TYPE "RUN" FOR THE BEGINNING OF THE RACE 14 Н.Р.Н. 
COHHANHD--? INS CLOSE ONE! 
.***8LALOM: THIS IS THE 1976 WINTER OLYNPIC GIANT SLALOM. YOU ARE 
THE AMERICAN TEAN^S ONLY HOPE OF A GOLD NEDAL. HERE CONES GATE 42 
? 
0--ТҮРЕ THIS IF YOU VANT TO SEE HOW LONG YOUVE TAKEN OPTIONS 2 
1--ТҮРЕ THIS IF YOU WANT TO SPEED UP A LOT CLOSE ONE! 
2--TYPE THIS IF YOU WANT TO SPEED UP А LITTLE ` 
3--TYPE THIS IF YOU WANT TO SPEED UP A TEENSY 
4--ТҮРЕ THIS IF YOU WANT TO KEEP GOING THE SANE SPEED HERE CONES GATE 83 
5--TYPE THIS IF YOU WANT TO CHECK A TEENSY OPTION? 3 
8--ТҮРЕ THIS IF YOU WANT TO CHECK A LITTLE 20 K.P.H. 
7--TYPE THIS IF YOU WANT TO CHECK A LOT 
8--TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE HERE COMES GATE 84 
THE PLACE TO USE THESE OPTIONS IS WHEN THE COMPUTER ASKS: ME 
20 H.P.H. 
OPTION? 
HERE COMES GATE #5 
GOOD LUCK, 20 K.P.H. 
OPTION? 5 
COMHAND--T МАХ 18 K.P.H. 
GATE MAX CLOSE ONE! 
# KPH 
TM HERE COMES GATE #6 
1 14 18 K.P.H. 
2 18 OPTION? 1 
3 26 23 K.P.H. 
4 29 
5 18 HERE COMES GATE H7 
40% 23 Н.Р.Н. 
7 28 OPTION? 1 
B 32 31 K.P.H. 
9 29 YOU TOOK OVER MAX. SPEED AND SNAGGED A FLAG! 
10 20 YOU TOOK 23.2587 SECONDS 
n 29 DO YOU WANT TO RACE AGAIN? NO 
12 29 THANKS FÜR TRE RACE 
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10 PRINT ТАВ(323); "SLALOM" 1050 RETURN 


20 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 1060 PRINT "CLOSE ОНЕ!" 

30 PRINT: PRINT: PRINT 1070 RETURN 

310 PRINT "HOU MANY GATES DOES THIS COURSE HAVE (1 TO 25)"; 1080 PRINT S;"M.P.H." 

320 INPUT V 1090 6070 1030 

330 IF 025 THEN 360 1100 LET S=S-INT(RND (1)*(5-3)43) 

340 IF V<1 THEN 390 1110 PRINT S;"M.P.H." 

350 GOTO 1440 1120 GOTO 1030 

360 PRINT "25 IS THE LIMIT" 1130 LET баб +ІНТ(АНр (1) (10-5285) 

370 LET ¥=25 1140 GOTO 1080 

380 GOTO 1440 1150 LET S:S-INT(RNDCD 9 (10-5) 85) 

390 PRINT "TRY AGAIN," 1160 GOTO 1110 

400 GOTO 310 1170 LET S=S+IRT(RND(1)*(4-1)+1) 

410 PRINT "RATE YOURSELF AS A SKIER, (1-UORST, J-BEST)"; 1180 GOTO 1110 

420 INPUT A 1190 LET SxS- INT(RNDCU(4-1)41) 

430 IF A41 THEN 460 1200 GOTO 1110 

440 IF 453 THEN 460 1210 PRINT "e«sCHEAT" 

450 GOTO 480 1220 IF RND(1)0€.7 THEN 1260 

460 PRINT "THE BOUNDS ARE 1-3" 1230 PRINT "YOU MADE IT!" 

470 60 10410 1240 LET Тәт+1,5 

480 PRINT "THE STARTER COUNTS DDUN..,5...4...3,..2,. . 1. GO!” 1250 RETURN 

490 REM 1260 PRINT "AN OFFICIAL CAUGHT YOU!" 

500 LET T=0 1270 PRINT "YOU TOOK"; (T+RND(1))* "SECONDS" 
510 LET S=INT(RND(1)*(18-9)+9) 1280 GOTO 740 

520 PRINT 1290 IF RND(1)<((S-0)*0.1)+,.2 THEN 1320 
525 PRINT “YOURE OFF!" 1300 PRINT "YOU TOOK OVER MAX. SPEED AND MADE IT!" 
530 FOR O=1 TO V 1310 RETURN 

540 — READ 0 1320 PRINT "YOU TOOK OVER HAX. SPEED AND "; 
550 PRINT 1330 IF RND<.5 THEN 1370 

555 PRINT "HERE COMES GATE B";STR$(D) 1340 PRINT "WIPED QUT!" 

560 PRINT S;"H.P.H." 1350 PRINT “YOU ТООК"; (T4 RHDCI)) ; "SECONDS" 
570 LET 51=5 1360 GOTO 740 

580 PRINT "OPTION"; 1370 PRINT "SNAGGED A FLAG!" 

590 INPUT 01 1380 GOTO 1350 

600 IF 01=0 THEN 970 1390 PRINT "LET^S BE REALISTIC, OK? LET^S GO BACK AND TRY AGAIN...” 
610 IF 0158 THEN 1420 1400 LET 5551 

620 IF 0141 THEN 1420 1410 GOTO 550 

630 60508 990 1420 PRINT "UHAT?" 

640 — IF 57 THEN 1290 1430 60T0 580 

650 1ЕТ T=T+(0-S+1) 1440 PRINT 

660 IF 5>0 THEN 1630 1443 PRINT "TYPE ";CHR$(34); " INS" ;CHR$(34)5" FOR INSTRUCTIONS" 
670 NEXT 0 1450 PRINT "TYPE ";CHR$(34); "HAX" SCHR$(34) ;" FOR APPROXIMATE NAXIHUN SPEEDS" 
680 PRINT "YOU TOOK"; (T4RNDC1) ; " SECONDS" 1460 PRINT "TYPE ";CHR$(34); "RUN";CHRS(34);" FOR THE BEGINNING OF THE RACE" 
690 LET М=Т 1470 PRINT "COMHAND--"; 

700 LET N=H/V 1480 INPUT A$ 

710 IF H41.5-(A90.1) THEN 1650 1490 REH 

720 IF M«2.9-(A20.1) THEN 1680 1500 IF A$z"INS" THEN 820 

230 IF HX4.4-(49.01) THEN 1710 1510 IF Аф="НАХ" THEN 1550 

740 PRINT “DO YOU UANT TO RACE AGAIN"; 1520 IF A$z"RUN" THEN 410 

750 INPUT B$ 1530 PRINT CHRE(S4);A$;CHRS(34);" IS AN ILLEGAL COMMAND--RETRY"; 
760 REM 1540 GOTO 1480 

270 IF BS="NO" THEN 1740 1550 PRINT "GATE НАХ" 

780 IF B$z"YES" THEN 480 1560 PRINT " И H.P.H," 

790 PRINT "PLEASE TYPE ”ҮЕ5” OR ^ND/" 1570 PRINT"---------- " 

800 8070 740 1580 FOR B=1TOV 

B10 STOP 1590 READ ü 

820 PRINT 

825 PRINT “#eeSLALOH: THIS IS THE 1974 WINTER OLYMPIC GIANT SLALOH. YOU ARE" 

830 PRINT " THE AMERICAN TEANS ONLY HOPE OF A GOLD MEDAL." 

840 PRINT 

845 PRINT " 0--ТҮРЕ THIS IF YOU WANT TO SEE HOU LONG YOU’VE TAKEN" 

850 PRINT " i--TYPE THIS IF YOU UANT TO SPEED UP A LOT" 1600 — PRINT B;" "}0 

860 PRINT " 2--TYPE THIS IF YOU UANT TO SPEED UP A LITTLE" 1610 MEXT B 

870 PRINT " 3--ТҮРЕ THIS IF YOU WANT TO SPEED UP A TEENSY" 1620 GOTO 1470 

880 PRINT " 4--TYPE THIS IF YOU WANT TO KEEP GOING THE SAME SPEED" 1630 LET T=T+.5 

890 PRINT " 5--ТҮРЕ THIS IF YOU WANT TO CHECK à TEENSY" 1640 GOTO 470 

900 PRINT " 6--ТҮРЕ THIS IF YOU UANT TO CHECK A LITTLE" н T 
910 PRINT " 7--TYPE THIS IF YOU WANT TO CHECK A LOT" 1650 PRINT "YOU UON A GOLD NEDAL! 


1660 LET G(1)=6(1)+1 


920 PRINT 1670 GOTO 1730 


8--TYPE THIS IF YOU WANT TO CHEAT AND TRY TO SKIP A GATE" 


930 PRINT 4 
80 P Y " 

935 PRINT " THE PLACE TO USE THESE OPTIONS 15 WHEN THE COMPUTER ASKS:" 1600 БАТАТ ттр шан а SILVER MEDAL 

940 PRINT ы " 1700 GOTO 1730 

945 PRINT "OPTION? 1710 PRINT "YOU ШОН A BRONZE HEDAL" 

950 PRINT 1720 LET BUD SBUD HI 

955 PRINT " 600D LUCK, 1730 6070 740 

957 PRINT " 1740 PRINT "THANKS FOR THE RACE" 

760 GOTO 1470 1750 IF B(1)<1 THEN 1770 

970 PRINT "YOUVE TAKEN"; (ТЕН (1))3 "SECONDS" 1760 PRINT "GOLD MEDALS:";G(D) 

980 GOTO 580 1770 IF S(1)<1 THEN 1790 

990 ON 01 GOTO 1130,1010,1170,1080,1190,1100,1150,1210 1780 PRINT "SILVER BEDALS:";5(1) 

1000 STOP 


1790 IF B(1)<1 THEN 1820 
1010 LET S=S+INT(RND(1)*(5-3)+3) 1800 PRINT "BRONZE HEDALS:";B(1) 
1020 PRINT 5;"M.P.H, 1810 DATA 14,18,26,29,18,25,28,32,29,20,29,29,25,21,26,29,20,21,20 


1030 IF 5>0 THEN 1290 1820 DATA 18,26,25,33,31,22 
1040 IF 5>0-1 THEN 1060 1830 END 
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Slots 


The slot machine or one-arm bandit 
is a mechanical device that will absorb SLOTS 
coins just about as fast as you can feed CREATIVE COMPUTING  MOÜRRISTOUN, NEU JERSEY 
it. After inserting a coin, you pull a 
handle that sets three independent yoy 
reels spinning. If the reels stop with 10 
certain symbols appearing in the pay 


ARE IN THE НАН CASINO,IN FRONT OF ONE OF OUR 
ARHED BANDITS. BET FROM $! TO $100. 
ULL T 


HE ARM, PUNCH THE RETURN KEY AFTER MAKING YOUR BET. 


line, you get a certain payoff. The YOUR BET? 5 
original slot machine, called the Liber- 
ty Bell, was invented in 1895 by Charles LENON CHERRY BELL 


Fey in San Francisco. Fey refused to 


sell or lease the manufacturing rights, You 1087. _ 
so H.S. Mills in Chicago built a similar, ABATE VDINOS ARE 9-5 
but much improved, machine called 
the Operators Bell. This has survived YOUR BET? 5 
nearly unchanged £o-today. 

On the Operators Bell and other BAR CHERRY CHERRY 
standard slot machines, there are 20 
symbols on each wheel but they are not DOUBLE ! ! 
distributed evenly among the objects YOUR D ANDINGS ARE % 10 
(cherries, bar, apples, etc.). Of the AGAIN? Y 
8,000 possible combinations, the ex- 
pected payoff (to the player) is 7,049 or YOUR BET? 10 
$89.11 for every $100.00-put in, one of 
the lowest expected payoffs of all LENON BAR BELL 
casino games. vou Lost 

In the program here, the payoff is ` 
considerably more liberal; indeed it Үйін BTANDINDG ARE $ 0 
appears to favor the player by 11% — 
i.e., an expected payoff of $111 foreach YOUR BET? 25 
$100 bet 


The program was originally written BELL 
by Fred Mirabelle and Bob Harper. LL BELL BAR 


DOUBLE! ! 
YOU WON! 
YOUR STANDINGS ARE $ 75 
AGAIN? N 


COLLECT YOUR WINNINGS FROM THE H&M CASHIER. 
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500 LET Р-Р-Н 

$10 PRINT "YOUR STANDINGS ARE $"P 
520 PRINT "AGAIN"; 

520 INPUT 4$ 

540 IF A$-"Y" THEN 140 

550 PRINT 

960 IF P40 THEN 470 

570 IF Рз0 THEN 490 

580 IF Р>0 THEN 710 

590 GOTO 1350 

400 IF Y=Z THEN 730 

610 IF Y=? THEN 820 

620 GUTO 1341 

630 IF 221 THEN 820 

640 GOTO 470 

650 IF Z=1 THEN 820 

660 GOTO 1341 

670 PRINT "PAY UP! PLEASE LEAVE YOUR MONEY ON THE TERMINAL." 
480 GOTO 1350 

690 PRINT"HEY, YOU BROKE EVEN." 
700 8070 1350 

710 PRINT "COLLECT YOUR WINNINGS FROM THE НАН CASHIER." 
220 8070 1350 

730 IF 7-1 THEN 780 

740 PRINT: PRINT "**TOP DOLLAR**" 
750 PRINT "YOU VON!" 

760 P=(((10*H)+H)+P) 

770 GOTO 510 

780 PRINT: PRINT "s**JACHPOTsew" 
790 PRINT "YOU WON!" 

800 Р-(( (100989483 +P) 

810 GOTO 510 

820 PRINT: PRINT "*DOUBLE BARS” 
830 PRINT"YOU ШОН!" 

840 Ра{( (Sen) +4) +P) 

850 8070 510 

860 PRINT"HOUSE LIMITS ARE $100" 
870 GOTO 160 

880 PRINT"HINIMUM BET IS $1" 

890 GOTO 160 

900 GOTO 220 

910 PRINT "ВАК": GOSUB 1310 

920 GOTO 330 

930 PRINT "ВЕЦ. “у: GOSUB 1310 
940 8070 330 

950 PRINT "ORANBE";: GOSUB 13!0 
960 GOTO 330 

970 PRINT "LEMON";: BÜSUB 1310 


10 PRINT TAB(30); "SLOTS" 980 GOTO 330 

20 PRINT TAB(15); "CREATIVE COMPUTING HMORRISTOUN, NEU JERSEY" 990 PRINT "PLUM";: 80508 1310 
30 PRINT: PRINT: PRINT 1000 BOTO 330 

100 REN PRODUCED BY FRED MIRABELLE AND BOB HARPER ОН JAN. 29, 1973 1010 PRINT "CHERRY";: GOSUD 1310 
110 REM IT SINULATES THE 5LOT MACHINE. 1020 60T0 330 

120 PRINT "YOU ARE IN THE HAM CASINO,IN FRONT OF ONE OF QUR" 1030 PRINT " BAR";: GOSUB 1310 
130 PRINT "ОНЕ-АЕНЕР BANDITS. BET FRON $1 TO $100." 1040 8070 390 

140 PRINT "TO PULL THE АКН, PUNCH THE RETURN KEY AFTER MAKING YOUR BET.” 1050 PRINT " BELL";: 60808 1310 
150 LET Peo 1060 6070 390 

160 PRINTs PRINT “YOUR BET"; 1070 PRINT " ORANGE";: GOSUB 1310 
170 INPUT M 1080 GOTO 390 

180 IF H>100 THEN 840 1090 PRINT " LEMON";: GOSUB 1310 
190 IF ИСІ THEN 880 1100 8070 390 

200 MsINT(M) 1110 PRINT " PLUH";: GOSUB 1310 
210 GOSUB 1270 1120 GOTO 390 

220 PRINT 1130 PRINT " CHERRY";: GOSUB 1310 
230 LET X=INT(óé*RNHD(1)+1) 1140 GOTO 390 

240 LET Y=INT(GeRND(1)4+1) 1150 PRINT" ВАВ" 

250 LET ZsINT(G*RNDOL 1) 1160 8070 450 

260 PRINT 1170 PRINT" BELL” 

270 IF X=1 THEN 910 1180 5070 450 

280 IF X«2 THEN 930 1190 PRINT" ORANGE" 

290 IF Xe3 THEN 950 1200 GOTO 450 

300 IF X«4 THEN 970 1210 PRINT" LENDN" 

310 IF Xe5 THEN 990 ` 1220 6010 450 

320 IF X«& THEN 1010 1230 PRINT" PLUM" 

330 IF Y=} THEN 1030 1240 GOTO 450 

340 IF Y=2 THEN 1050 1250 PRINT" CHERRY" 

350 IF Y=3 THEN 1070 1260 GOTO 450 

340 IF Үс4 THEN 1090 1270 FOR 0451 TO 10 

370 IF Үз% THEN 1110 1280 PRINT CHRS(7); 

ЗВО IF Үзб THEN 1130 : 1290 МЕХТ 04 

390 IF Z=1 THEN 1150 1300 RETURN 

400 IF 2-2 THEN 1170 1310 FOR 1841 10 5 

410 IF 243 THEN 1190 1320 PRINT CHR$(2); 

420 IF Z«4 THEN 1210 1330 НЕХТ ТВ 

430 IF 2»5 THEN 1230 1340 RETURN 

440 IF Z»4 THEN 1250 1341 PRINT: PRINT "DOUBLET!" 
450 IF XsY THEN 400 1342 PRINT"YOU WON!” 

460 IF X«Z THEN 630 1343 P=(( (20H) DAP) 

470 IF Y=Z THEN 650 1344 ВОТО 510 

480 PRINT 1350 STOP 


490 PRINT "YOU LOST." | 9999 END 
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Splat 


SPLAT simulates a parachute jump 
іп which you try to open your 
parachute at the last possible moment 
without going splat! You may select 
your own terminal velocity or let the 
computer do it for you. You may also 
select the acceleration due to gravity 
or, again, let the computer do it in 
which case you might wind up on any 
one of eight planets (out to Neptune), 
the moon, or the sun. 
The computer then tells you the - 
height you're jumping from and asks 


for the seconds of free fall. It then SELECT YOUR OUN TERMINAL VELOCITY (YES OR ND)? YES 


divides your free fall time into eight WHAT TERMINAL VELOCITY (HI/HR)? 200 

intervals and gives you progress WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? YES 
reports on your way down. The com- WHAT ACCELERATION (FT/SEC/SEC)? 32 

puter also keeps track of all prior jumps ALTITUDE = 1228 FT 

in the array A and lets you know how TERH.VELDCITY = 293.333 FT/SEC 4-52 

you compared with previous success- ACCELERATION = 32 FI/SEC/SEC %-5Х 

ful jumps. If you want to recall informa- SET THE TIMER FOR YOUR FREEFALL. 

tion from previous runs, then you MRE ue SECONDS? 11 

should store array A in a disk or tape ` 


file and read it in before each run. TIME (SEC) — DIST TO FALL (FT) 


John Yegge created this program 0 mem = 


while at the Oak Ridge Associated 1s 1245.28 
Universities. 2.25 1154.98 
4.125 1001.21 
5.5 785.934 
6.875 509.146 
SPLAT 8.25 170.851 

CREATIVE COMPUTING MORRISTOWN, HEU JERSEY uyan VELOCITY REACHED AT T PLUS 8.75938 SECONDS 


REQUIESCAT IN PACE. 

I'LL GIVE YOU ANOTHER CHANCE. 
WELCOME TO ^SPLAT' -- THE GAME THAT SIMULATES A PARACHUTE DO YOU WANT TO PLAY AGAIN? YES 
JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE 


MOMENT WITHOUT GOING SPLAT. 
SELECT YOUR OWN TERHINAL VELOCITY (YES OR NO)? YES 


WHAT TERMINAL VELOCITY (HI/HR)? 200 


SELECT YOUR ONN TERMINAL VELOCITY (YES OR NO)? NO WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? YES 
DK. TERMINAL VELOCITY = 45 HI/HR WHAT ACCELERATION (FT/SEC/SEC)? 32 
MART TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO)? ND 
FINE. YOU'RE ON THE SUN. ACCELERATION=8946FT/SEC/SEC ALTITUDE = 9440 FT 
TERH.VELOCITY = 293.333 FT/SEC %-5% 
ALTITUDE = 8680 FT ACCELERATION = 32 FI/SEC/SEC +-5% 
TERM. VELOCITY = фа FT/SEC +-57 SET THE TIMER FOR YOUR FREEFALL. 
ACCELERATION = 896 FT/SEC/SEC 4-51 HOW MANY SECONDS? 7.5 
SET THE TIMER FOR YOUR FREEFALL. HERE UE 58. 
HOW HANY SECONDS? 8 
HERE WE GO. TIME (SEC) DIST TO FALL (FT) 
TIME (SEC) DIST TO FALL (FT) 0 9440 
шипшшшшіші шш=ш=пншшшап=шшшшщ 937 9426.04 
0 8680 1.87 9284.17 
TERMINAL VELOCITY REACHED AT T PLUS „0731599 SECONDS 2.8125 9314.39 
1 8616.08 3.75 9216.49 
2 8549.7 4.8875 9091.08 
3 8483.39 5.625 8937.56 
4 8417.04 6.5625 8756.12 
5 8350.49 7.5 8546.77 
Š 8284.34 CHUTE OPEN 
7 8218 AMAZING!!! NOT BAD FOR YOUR 2ND SUCCESSFUL JUMP!!! 
8 8151.45 DO YOU WANT TO PLAY AGAIN? NO 
CHUTE OPEN PLEASE? NOPE 
AMAZING!!! ROT BAD FOR YOUR 1ST SUCCESSFUL JUMP!!! YES OR NO PLEASE? NO 
UO YOU WANT TO FLAY AGAIN? YES 5555555555. 
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PRINT TAB(33);"SPLAT” 
PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, 
PRINT:PRINT:PRINT 
DIM A(42) 
PRINT “WELCOME TO “SPLAT” -- THE GAME THAT SIMULATES A PARACHUTE” 
PRINT "JUMP. TRY TO OPEN YOUR CHUTE AT THE LAST POSSIBLE" 
PRINT "MOMENT WITHOUT GOING SPLAT." 
PRINTsPRINT :D1=0:U=02A=O0:N=OrH=0:DT=INT (9001#RND(1)+1000) 
PRINT " SELECT YOUR OWN TERMINAL VELOCITY (YES DR NO)";:INPUT 01% 
IF AIS="NO" GOTO 128 
IF AIS<>"YES" THEN PRINT "YES OR Nü";:INPUT A13:60TO 120 
PRINT "WHAT TERMINAL VELOCITY (MI/HRI"i:INPUT 01 
V1201$(5280/3600) VEVT+ C(ULERNDCL 2/20) - CCULERND CL) /20) :80T0. 135 
VI=ENT(1000#RND(1)) 
PRINT "OK. TERMINAL VELOCITY s"VI"HI/HR" 
VISVE#(5280/3600) :U-V LE (CUEERHDUL) 2/200 - CUUEERND CD £20) 
PRINT "WANT TO SELECT ACCELERATION DUE TO GRAVITY (YES OR NO"; 
INPUT 815 
IF BIS="NO" THEN 150 
IF BIS<>"YES" THEN PRINT "YES OR NO";:INPUT 819:0070 140 
PRINT “WHAT ACCELERATION (FT/SEC/SEC)";:INPUT A2 
A425 (CA25RNDCL) 1/20) - CCAZERNDCL) 2/202 £60T0. 205 
ON INT(LECIOSRNDCD 226010151,152, 153,154, 155,156, 157 158,159, 160 
PRINT"FINE, YOU'RE ON HERCURY. ACCELERATIONZI2.2FT/SEC/SEC" :GÜTO161 
PRINT"ALRIGHT. YOURE QN VENUS. ACCELERATION=28.3 FT/SEC/SEC":BÜTO 182 
PRINT "THEN YOU^RE DH EARTH. ACCELERATION-32.16 FT/SEC/SEC":GDTO 163 
PRINT"FINE. YOU^RE ON THE HOON. ACCELERATION=5.15FT/SEC/SEC":GOTO 144 
PRINT"ALRIGHT. YOU'RE ON HARS. ACCELERATIQN-12.5FT/SEC/SEC":60TD 165 
PRINT"THEN YOU'RE ON JUPITER. ACCELERATIONZBS.2FT/SEC/SEC":GÜTÜ 164 
PRINT“FINE. YOU^RE ON SATURN. ACCELERATION-27.6F T/SEC/SEC":GOTU 167 
PRINT"ALRIGHT. YOU^RE ON URANUS, ACCELERATION-33.8FT/SEC/SEC":G0TO 148 
PRINT"THEM YOU“ RE ON NEPTUNE. ACCELERATIONs39.6FT/SEC/SEC":G0TO 169 
PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=894F 1/SEC/SEC":GOTO 170 


NEW JERSEY" 


A2z12.2:80T0 145 
A2228.3:G0T0 145 
82-32.16:0070 145 
A2z5.15:60T0 145 
82512.5:0070 145 
42:85.2:60T0 145 
A2=32.6:60TD 145 
А2:33.8 :0070 145 


42z39.6:60T0 145 

А2<898: GOTO 145 

РКІНТ 

PRINT " ALTITUDE z"MUFIU 

PRINT " TERM. VELOCITY EUMA"FTI/SEC 4-52" 

PRINT " ACCELERATION z"AQU"FT/SEC/SEC 4-52" 

PRINT "SET THE TIMER FÜR YOUR FREEFALL." 

PRINT "HOW MANY SECONDS";:INPUT T 700 
PRINT "HERE WE 60." ?01 


PRINT "WOU!  THAT^S SOME JUMPING. 


OF THE"K"SUCCESSFUL JUMPS" 
PRINT "BEFORE YOURS, ONLY"K-KI"ÜPENED THEIR CHUTES LOUER THAN” 


PRINT 702 PRINT "YOU DID." 
PRINT "TIME (SEC)","DIST TU FALL CET)" 703 GOTO 2000 

PRINT "zzzzzzzzzz"yU"mzzzzzzzm ===" 710 PRINT "PRETTY GOOD! " K"SUCCESSFUL JUMPS PRECEDED YOURS AND ONLY" 

FOR I-0 TO T STEP (1/8) 711 PRINT К-КІ" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES" 

IF I2V/A GOTO 400 712 PRINT "OPENED." :80T0 2000 

Dzpi-((A/2)81^2) 720 PRINT "HOT BAD. THERE HAVE BEEN"K"SUCCESSFUL JUMPS BEFORE YOURS." 

IF D<=0 8070 1000 221 PRINT"YOQU WERE BEATEN OUT BY"K-K1"UF THEM.":GDI 2000 

PRINT 1,0 730 PRINT “CONSERVATIVE ARENT YOU? YOU RANKED ONLY"K-Ki"IN THE" 

NEXT 1 731 PRINT K"SUCCESSFUL JUMPS BEFORE YOURS.":60TO 2000 

GOTO 500 740 PRINT "HUMPH! DON’T YOU HAVE ANY SPORTING BLOOD? THERE WERE" 

PRINT "TERMINAL VELOCITY REACHED АТ T PLUS"V/A"SECONDS" 741 PRINT K*SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN" K1"JUMPS* 

FOR I=I TO T STEP (7/8) 742 PRINT "BETTER THAN THE WORST. SHAPE UPI!!":GDTD 2000 

Перу 2/ COSA) (UR CI- 7002 2 250 PRINT "HEY! YOU PULLED THE RIP CORB MUCH TOO SOON.  "K^SUCCESSFUL" 

IF D<=0 GOTO 1010 751 PRINT "JUMPS BEFORE YOURS AND YOU САНЕ IH NUHBER"K-K1"! GET UITH IT!" 
PRINT 1,D 252 GOTO 2000 

NEXT 1 800 PRINT "REQUIESCAT IH РАСЕ. ":5010 1950 

PRINT "CHUTE ОРЕН" 801 PRINT "HAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE":G0TO 1950 
К=б:К1=0 802 PRINT "REST IN PEACE":GDTO 1950 

FOR Ј=0 Т0 42 803 PRINT "SON-OF-A-GUN":GOTO 1950 

IF A(J)-0 GOTO 620 804 PRINT "HSI222!5":00T0 1950 

K=K+1 805 PRINT "A KICK IN THE PANTS IS A BOOST IF YOU'RE HEADED RIGHT":60T0 1950 
IF D»-A(J) GOTO 400 806 PRINT "HMHH. SHOULD HAVE PICKED A SHORTER TIME.":GOTO 1950 

KI=K1+1 807 PRINT "MUTTER. MUTTER. MUTTER.":60TD 1950 

NEXT J 808 PRINT "PUSHING UP DAISIES.":60TO1950 

GOTO 540 809 PRINT "EASY COME, EASY 60.":6GDTO 1950 

AC SED 1000 PRINT SOR(2#D1/A), "SPLAT" 


IF J>2 THEN 450 

PRINT “AMAZING!!! NOT BAD FOR YOUR "; 
IF J=0 THEN PRINT “1ST "; 

IF J=1 THEN PRINT "OND "3 

IF J=2 THEN PRINT "3RD "; 

PRINT "SUCCESSFUL JUMP! '!":60T0 2000 
IF К-К15:5.1%К GOTO 700 

IF K-K1<=.25#K GUTO 29 


1005 ON INTCTECEOTRNDUL) 2)G0T0. 800,801,802,802,804 


,805,806,802,808,809 


1010 PRINT (ИЛА) +С 2/(21852))/U) , "SPLAT" 

1020 8070 1005 

1950 PRINT-"I'LL GIVE YOU ANOTHER CHANCE." :GOTO 2000 
2000 PRINT "DO YOU WANT TO PLAY AGAIN’ Ss INPUT Z$ 


1 IF Ifz"YES" GOTO 118 


3002 IF Zs="NO" 5010 2005 


3 PRINT "YES OR М0":80170 2000 


IF K-Kl<=.5*K GOTO ; 2005 PRINT "PLEASE";:INPUT Z$;IF Z$="YES" THEN 118 
IF К-кі 2006 IF Zti:"Nü" THEN PRINT "YES OR NO ";:5010 2005 
IF K-Kl<=, дек 6070 240 2007 PRINT “5555555555,”:0070 2046 

GOTO 750 2046 END 
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. Stars 


In this game, the computer selects a OK, I АН THINKING OF A NUMBER, START GUESSING. 
random number from 1 to 100 (or any 


value you set in Statement 150). You try YOUR GUESS? 50 


ee 

to guess the number and the computer * 
gives you clues to tell you how close YOUR GUESS? 75 
you're getting. One star (* means ** 
you're far away from the number; seven YOUR GUESS? 25 
stars (*******) means you’re really әзеде 
close. You get 7 guesses. 

On the surface this game is very YOUR GUESS? 35 
similar to GUESS; however, the guess- 
ing strategy is quite different. Seeif you YOUR BUESS? 30 
can come up with one or more ap- sertett 
proaches to finding the mystery YOUR GUESS? 31 
number. 


N М ре трт ЕРТ ДИН) 
Bob Albrecht of People's Computer YOU GOT IT IN 6 GUESSES!!! LET’S PLAY AGAIN... 


Company created this game. 


10 PRINT TAB(34); "STARS" 
20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY" 
30 PRINTIPRINT:PRINT 
100 REM *e* STARS ~ PEOPLE’S COMPUTER CENTER, MENLD PARK, CA 
140 REM *** À IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES 
STARS 150 A=100sH=7 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 170 INPUT "DO YOU МАНТ INSTRUCTIONS" 8% 
190 IF LEFTS(AS,1)="N" THEN 280 
200 REM *** INSTRUCTIONS ON HOW TO PLAY 
210 PRINT "I AM THINKING OF A WHOLE NUMBER FROM 1 TO";A 


DO YOU VANT INSTRUCTIONS? YES 220 PRINT "TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I" 
I AM THINKING OF A WHOLE NUHBER FROM 1 TO 100 230 PRINT "WILL TYPE ONE OR WHORE STARS (+), THE MORE" 
TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I 240 PRINT "STARS I TYPE, THE CLOSER YOU ARE TO MY NUMBER." 
WILL TYPE ONE OR HORE STARS (*). THE NORE 250 PRINT "ONE STAR (9) MEANS FAR AUAY, SEVEN STARS (ежка) 
STARS I TYPE, THE CLOSER YOU ARE TO HY NUMBER. 260 PRINT “MEANS REALLY CLOSE! YOU БЕТ"; М; "GUESSES." 
ONE STAR (+) HEANS FAR AUAY, SEVEN STARS (*w*****) 270 REM *** COMPUTER THINKS OF A NUMBER 
MEANS REALLY CLOSE! YOU GET 7 GUESSES. 280 PRINT 
290 PRINT 
300 X=INT(A*RND(1)+1) 
OK, I AM THINKING OF A NUMBER, START GUESSING. 310 PRINT "OK, 1 AN THINKING OF A NUMBER, START BUESSING." 
320 REM *** GUESSING BEGINS, HUMAN GETS M GUESSES 
YOUR GUESS? 50 330 FOR K=1 TO H 
жж 340 PRINT 
350 PRINT "YOUR GUESS”; 
YOUR GUESS? 25 380 INPUT 6G 
мәзірде eee eee eee EEE ee ene 1 11 370 IF 6-X THEN 600 
YOU GOT IT IN 2 GUESSES!!! LET’S PLAY AGAIN... 380 D-ABS(O-X) 


390 IF D>=64 THEN 510 
400 IF D>=32 THEN 500 
410 IF D>=16 THEN 490 


OK, I AM THINKING OF A NUMBER, START GUESSING. 420 IF D»*8 THEN 480 
430 IF D>=4 THEN 470 
YOUR GUESS? 50 440 IF D>=2 THEN 460 
*** 450 PRINT "*"; 
460 PRINT "ж"; 
YOUR GUESS" 75 470 PRINT “ats 
жж АВО PRINT "s"; 
490 PRINT "+"; 
YOUR GUESS? 25 500 PRINT "e"; 
2224 510 PRINT "4"; 
520 PRINT 
YOUR GUESS? 15 530 NEXT K 
+t 540 REN *** DID NOT GUESS IN M GUESSES 
550 PRINT 
YOUR GUESS? 35 560 PRINT "SORRY, THAT^S";H;"GUESSES, NUMBER UAS";X 
жене 580 GOTO 280 
590 REM *** UE HAVE A WINNER 
YOUR SUESS? 38 600 FOR N=1 TO 50 
Tenn. 610 PRINT "ж"; 
620 NEXT N 
YOUR GUESS? 33 630 PRINT "111" 
* 640 PRINT "YOU GOT IT IN";H;"GUESSES!!! LET^S PLAY AGAIN..." 
450 GOTO 280 
SORRY, THAT^S 7 GUESSES, NUMBER WAS 32 660 END 
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Steck Market 


This program “plays” the stock STOCK INITIALS 
. : INT. BALLISTIC MISSILES ИШ 
market. You will be given $10,000 and RED CROSS OF AMERICA RCA 
may buy or sell stocks. Stock prices LICHTENSTEIN, BUHRAP & JOKE LBJ 
and trends are generated randomly; CENSULED E ONE" Med 
therefore, this model does not repre- 
sent exactly what happens on the NEU YORK STOCK EXCHANGE AVERAGE: 113.45 
exchange. (Depending upon your 
point of view, you may feel this is quite ТАР STOCK seers ARE М ? 000 
а good representation!) A RE 9 
: TOTAL ASSETS ARE $ 10000 
Every trading day, a table of stocks, 
their prices, and number of shares in WHAT IS YOUR TRANSACTION IN 
your portfolio is printed. Following IBH? 10 
. I al RCA? 20 
this, the initials of each stock are LBJ? 10 
printed followed by a question mark. ABC? 0 
You indicate your transaction in CBS? 0 


number of shares — a positive number 
to buy, negative number to sell, or 0 to 
do no trading. A brokerage fee of 1% is 
charged on а! transactions (a 


À» eek END OF DAY^S TRADING 


bargain!). Note: Even if the value of a ИШ FACE SHARE HOLDINGS 

stock drops to zero, it may rebound RCA 79.5 20 

again — then again, it may not. LBJ 142.25 10 
This program was created by D. ABE 138.75 о 


Pessel, L. Braun, and C. Losik of the 
Huntington Computer Project at 


SUNY, Stony Brook, N.Y. 
NEW YORK STOCK EXCHANGE AVERAGE: 110.85 


TOTAL STOCK ASSETS ARE — $ 3955 
TOTAL CASH ASSETS ARE % 5852.95 
TOTAL ASSETS ARE $ 9808.95 


PRICE/SHARE 
98.25 
83.75 
144.73 
137 
103.5 
VALUE NET PRICE CHANGE 
942.5 -4 
1590 -4.25 
1422.5 -2.5 
9 2.75 
0 -5 


NET CHANGE: -2.6 


DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)? 1 


STOCK MARKET 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY нат 15 ҮШШЕ TRANSRCTION IN 
RCA? -5 
LBJ? -10 
ABC? 0 


CBS? Q 
DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)? 1 


жажажазжеә END OF DAY^S TRADING 
THIS PROGRAM PLAYS THE STOCK MARKET. YOU MILL BE GIVEN 


$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL 


BE GENERATED RANDONLY AND THEREFORE THIS MODEL DOES NOT stock PRICE/SHARE ^ HOLDINGS 
REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. A TABLE IBH 82.75 20 

OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES REA 47.25 10 

IM YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE LBJ 125.75 10 
INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION ABC 121225 10 
MARK. HERE YOU INDICATE A TRANSACTION. TO BUY A STOCK CBS 84175 0 


ТҮРЕ *NNN, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE 
NUMBER OF SHARES. A BROKERAGE FEE OF 1X WILL BE CHARGED 
ON ALL TRANSACTIONS. NOTE THAT IF A STOCH^S VALUE DROPS 


TO ZERO IT KAY REBOUND TO A POSITIVE VALUE AGAIN. YOU NEU YORK STOCK EXCHANGE AVERAGE: 96.45 
HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS. 

(ROTE: TO GET A “FEEL” FOR THE MARKET RUN FOR AT LEAST TOTAL STOCK ASSETS ARE $ 4802.5 

10 DAYS) TOTAL CASH ASSETS ARE $ 3987.74 
T7 GOOD LUCK!----- TOTAL ASSETS ARE $ 8790.24 
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VALUE NET PRICE CHANGE 
1653 -1.75 

672.5 72.29 

1257.5 -6.5 

1212.8 -7 

9 74.5 


NET CHANGE: -4.4 


10 PRINT TAB(C30); "STOCK. MARKET" 

20 PRINT TAB(15)} "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 

30 PRINT: PRINT: PRINT 

100 REM STOCK MARKET SIMULATION 78TOCK- 

101 REM REVISED B/18/70 (D. PESSEL, L. BRAUN, C. LOSIK) 

102 REH IHP VRBLS: A-HRKT ТЕН) SLP; BO-BRKRGE FEE; C-TTL CSH А5815; 
103 REM C5-TTL CSH ASSTS (TEMP); СС) СНМ IN STK VAL; D-TTL ASSTS; 
104 КЕҢ E1,E2-LRG CHNG MISC; I-STCK 4; I1,12-STCKS Ú LRG CHNG; 

105 REM NI,N2-LRO CHNG DAY CNTS; PS-TTL DAYS PRCHSS; P(I)-PRTFL CNTNTS; 
106 REM 09-НЕШ CYCL?; S4-SGN OF A; SS-TTL DYS SLS; S(1)-VALUE/SHR; 
107 REM T-TTL STCK 456175; TS-TTL VAL OF TRNSCTNS; 

108 REM U3-LRG CHNG; X1-SHLL CHNG(<$1); 24,23,26-NYSE AVE.; Z(I)-TRNSCT 
110 BIN 5(5),Р(5),7(5),С(5) 
112 REM SLOPE OF MARKET TREND:A 
113 LET X51 

114 LET AzINTCONDOO/10)91005.5)/100 

115 LET T530 

116 LET X9=0 

117 LET N1«0 

118 LET N250 

119 LET Е1=0 

120 LET E2=0 

121 КЕН INTRODUCTION 

122 PRINT "DO YOU WANT THE INSTRUCTIONS (YES-TYPE 1, NO-TYPE 0)"; 
123 INPUT 29 

124 PRINT 

125 PRINT 

126 IF 2941 THEN 200 

130 PRINT "THIS PROGRAM PLAYS THE STOCK HARKET. YOU WILL BE GIVEN” 
132 PRINT "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" 
134 PRINT "BE GENERATED RANDOHLY AND THEREFORE THIS HODEL DOES НОТ" 
135 PRINT "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE. А TABLE" 
136 PRINT "ОЕ AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES 
137 PRINT "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE" 
138 PRINT “INITIALS OF EACH STOCK WILL BE PRINTED UITH A QUESTION" 
139 PRINT “HARK. HERE YOU INDICATE A TRANSACTION. TD BUY A STOCK" 
140 PRINT “TYPE *NNH, TO SELL A STOCK TYPE -NNN, WHERE NNN IS THE" 
141 PRINT “NUMBER OF SHARES. A BROKERAGE FEE OF 17 UILL BE CHARGED" 
142 PRINT “ON ALL TRANSACTIONS. NOTE THAT IF а STOCKS VALUE DROPS" 
143 PRINT “TO ZERO IT HAY REBOUND TO A POSITIVE VALUE AGAIN. YOU" 
144 PRINT “HAVE $10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." 
145 PRINT “(NOTE: TU GET A “FEEL” FOR THE HARKET RUN FOR AT LEAST" 
146 PRINT "10 DAYS)" 

147 PRINT “----- GOOD 1ШСКІ----- i 

200 REH GENERATION OF STOCK TABLE; INPUT REQUESTS 

210 REM INITIAL STOCK VALUES 

220 LET $(1)2100 

230 LET $(2)=85 

240 LET S(3)=150 

250 LET S(4)=140 

280 LET 5(5)=110 

265 REM INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A) 

266 LET T8=INT(4.99*#RND(X)+1) 

267 REM RANDOMIZE SIGN OF FIRST TREND SLOPE (A) 

268 IF RND(X)>.5 THEN 270 

269 LET А=-А 

270 КЕН RANDOMIZE INITIAL VALUES 

380 GOSUB 830 

285 REM INITIAL PORTFOLIO CONTENTS 

290 FOR 1=1 TO Š 

300 LET P(I)=0 

305 LET 1(1):0 

310 NEXT I 

320 PRINT 

330 PRINT 

333 REM INITIALIZE CASH ASSETS:C 

335 LET С=10000 

338 REM PRINT INITIAL PORTFOLIO 

340 PRINT "STOCK"," ","INITIALS","PRICE/SHARE" 

350 PRINT "INT. BALLISTIC HISSILES","  IBH",S(1) 

352 PRINT "RED CROSS OF AMERICA","  RCA",S(2) 


(SANE FOR ALL STOCKS) 


354 PRINT “LICHTENSTEIN, BUHRAP & JOKE"," LBJ",S(3) 
356 PRINT "AHERICAN BANKRUPT CD.","  ABC",S(4) 
358 PRINT "CENSURED BOOKS STÜRE*," €BS",5(5) 


380 PRINT 

361 REM NYSE AVERAGE:Z5; TEMP. VALUE:24; NET CHANGE:Zó 
363 LET 14415 

364 LET 25=0 

365 LET T=0 

370 FOR 1-1 TO 5 

375 LET Z5=15+S(I) 

380 LET T=sT+rS(I)*P(I) 

390 NEXT 1 

391 LET Z5=2NT(100%(25/5)+.5)/100 

392 LET Zé=INT((Z5-Z4)#100+.S)/100 

393 REM TOTAL ASSETS:D 

394 LET DzT4C 

395 IF X9>0 THEN 398 

396 PRINT “NEW YORK STOCK EXCHANGE AVERAGE: "Z5 
397 GOTO 399 


398 PRINT “NEW YORK STOCK EXCHANGE AVERAGE: "25" МЕТ CHANGE: "Zá 
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399 PRINT 
400 LET T=INT(100T+.5)/100 


401 PRINT “TOTAL STOCK ASSETS ARE — $'T 
403 LET C=INT(1000C+.5)/100 
405 PRINT "TOTAL CASH ASSETS ARE "С 
407 LET D=INT(1008D+.5)/100 
408 PRINT "TOTAL ASSETS ARE 9%! 


410 PRINT 

411 IF Х9=0 THEN 416 

412 PRINT "DO YOU WISH TO CONTINUE (YES-TYPE 1, NO-TYPE 0)"; 

413 INPUT 09 

414 IF G9<1 THEN 998 

416 REM INPUT TRANSACTIONS 

420 PRINT "UHAT IS YOUR TRANSACTION IN" 

430 PRINT "IBN"; 

440 INPUT 201) 

450 PRINT "ВСА"; 

480 INPUT Z(2) 

470 PRINT "LBJ"; 

480 INPUT Z(3) 

490 PRINT "ABC"; 

500 INPUT Z(4) 

510 PRINT "CBS"; 

520 INPUT Z(5) 

525 PRINT 

530 REM TOTAL DAY’S PURCHASES IN $:P5 

540 LET P5=0 

550 REM TOTAL DAY’S SALES IN 9:55 

560 LET 5520 

570 FÜR Ізі Т0 5 

575 LET Z(1)#INT(Z(1)4.5) 

580 IF Z(I)<=0 THEN 610 

590 LET Р5-Р5%7(1298С1) 

800 GOTO 620 

610 LET S5=S5-Z(1)*S(D 

612 IF -Z(I)<=P(I) THEN 420 

614 PRINT “YOU HAVE OVERSOLD A STOCK; TRY AGAIN." 

816 GOTO 420 

420 NEXT I 

822 REM TOTAL VALUE OF TRANSACTIQONS;TS 

625 LET T5=P5+85 

630 REH BROKERAGE FEE:BS 

840 LET BS=INT(.01%759100+.5)/100 

850 REM CASH ASSETS-OLD CASH ASSETS~TOTAL PURCHASES 
652 REM -BROKERAGE FEES+TOTAL SALES:CS 

654 LET CSsC-P5-B5455 

656 IF C5>=0 THEN 674 

858 PRINT "YOU HAVE USED $"-CS" HORE THAN YOU HAVE." 
840 GOTO 420 

674 LET CCS 

475 REM CALCULATE NEU PORTFOLIO 

680 FOR Is1 TO 5 

690 LET PCL) =P(1)4Z(1) 

200 NEXT I 

710 REM CALCULATE NEW STOCK VALUES 

720 60508 830 

750 REM PRINT PORTFOLIO 

751 REM BELL RINGING-DIFFERENT QN MANY COMPUTERS 

752 FOR I=1 TO 20 
253 PRINT CHRS(135); 
254 НЕХТ I 

255 PRINT 

756 PRINT "тта 
257 PRINT 

758 PRINT 

759 IF X9€1 THEN 769 
749 PRINT "STOCK", "PRICE/SHARE", "HOLDINGS", "VALUE" "NET PRICE CHANGE" 
270 PRINT "IBA", SC, POD, SCDOSPOD, CO) 

771 PRINT "REA", 802), P(2), S(2)8P(2), C(2) 

272 PRINT "LBJ", 503), PCS), SGOSPOD, CD 

773 PRINT "ABC", 504), P(A), SCOSPOD, CLA) 

274 PRINT "CBS", 8(5), PCS), S(5)#P(5), C(5) 

775 LET X?:1 

280 PRINT 

290 PRINT 
B10 GOTO 360 
829 REM NEU STOCK VALUES - SUBROUTINE 
830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS 
831 REM DAY’S VALUES 
832 REM N1,N2 ARE RANDOM NUMBERS OF DAYS WHICH RESPECTIVELY 
833 REH DETERMINE WHEN STOCK I1 UILL INCREASE 10 PTS. AND STOCK 
834 КЕН 12 WILL DECREASE 10 PIS. 
840 REM IF НІ DAYS HAVE PASSED, PICK AN It, SET El, DETERMINE NEU NI 
841 IF N120 THEN 850 
845 LET I15INT(A 99 4RNDOO 1) 
846 LET NI=INT(4.99*RND(X)+1) 
842 LET Еігі 
850 REM IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEU N2 
851 IF N220 THEN 840 
855 LET I2=INT(4.99*RND(X)+1) 
856 LET N2-INT(4. 99»RND(X) 1) 


END OF DAY^S TRADING" 


857 
860 
861 
862 
890 
900 
910 
915 
916 
917 
920 
921 
922 
925 
926 
927 
930 
931 
935 
936 
937 
938 
939 
943 
945 
947 
948 


LET E221 

КЕН DEDUCT ONE DAY FROM NI AND N2 
LET Ni=N1-1 

LET N2:N2-1 

КЕН LOOP THROUGH ALL STOCKS 
FOR 1=1 TO 5 

LET X13RND(UX) 

IF Х12.25 THEN 920 

LET Хіз.25 

GOTO 935 

IF Хі>.50 THEN 925 

LET X1s.50 

GOTO 935 

IF X1>.75 THEN 930 

LET X1=.75 

GOTO 935 

LET X120.0 

КЕН BIG CHANGE CONSTANT: U3 
LET W3=0 

IF E1<1 THEN 945 

IF ІНГІ S.S) O INT(LS.5). THEN 945 

REM ADD 10 PTS. TO THIS STOCK; RESET El 
LET U3=10 

LET Et=0 

IF E241 THEN 955 

IF INT(LI26.5) OINTCIS 5) THEN 955 

REM SUBTRACT 10 PTS. FROM THIS STOCK; 


(SET TO ZERO INITIALLY) 


RESET E2 


4. 
t4 
% 
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949 
953 
954 
955 
954 
957 
960 
964 
965 
966 
957 
970 
972 
973 
974 
980 
985 
986 
990 
992 
993 
994 
995 
997 
998 
999 


LET 03=03-10 

LET E220 

REM C(I) 18 CHANGE IN STOCK VALUE 

LET CCLDEENT CASS (1) XI INT GI-à*RNDOQO *,3)403 
LET CCIYZINTOQOQ08CUD *.5)/100 

LET S(I)=S(I)+8(I) 

IF S€1)>0 THEN 947 

LET С(1)«0 

LET 5(1)=0 

GOTO 970 

LET SCL)SINT(10085(1)+.5)/100 

NEXT I 

REM AFTER T8 DAYS RANDONLY CHANGE TREND SIGN AND SLOPE 
LET Т8-18-1 

IF Т8<1 THEN 985 

RETURN 

REH RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION 
REM OF TREND (T8) 

LET TB=INT(4.99*RND(X)+1) 

LET A=INT((RND(X)/10)*100+.5)/100 

LET SA4sRND(X) 

IF 54<=,5 THEN 997 

LET А=-А 

RETURN 

PRINT "HOPE YOU HAD FUN! 1" 

END 


Super Star Trek 


Brief History 


Many versions of Star Trek have been kicking around 
various college campuses since the late sixties. | recall 
playing one at Carnegie-Mellon Univ. in 1967 or 68, and a 
very different one at Berkeley. However, these were a far 
cry from the one written by Mike Mayfield of Centerline 
Engineering and/or Custom Data. This was written for an 
НР2000С and completed in October 1972, It became the 
"standard" Star Trek in February 1973 when it was put in 
the HP contributed program library and onto a number of 
HP Data Center machines. 

In the summer of 1973, | converted the HP version Хо 
BASIC-PLUS for DEC's RSTS-11 compiler and added a few 
bits and pieces while | was at it. Mary Cole at DEC 
contributed enormously to this task too. Later that year | 
published it under the name SPACWR (Space War — in 
retrospect, an incorrect name) in my book 107 Basic 
Computer Games. lt is difficult today to find an interactive 
computer installation that does not have one of these 
versions of Star Trek available. 


Quadrant Nomenclature 


Recently, certain critics have professed confusion as to 
the origin of the "quadrant" nomenclature used on all 
standard CG (Cartesian Galactic) maps. Naturally, for 


anyone with the remotest knowledge of history, no 1 | ANTARES IV | SIRIUS IV 
explanation is necessary; however, the following synopsis 
should suffice for the critics: 

As every schoolboy knows, most of the intelligent 2 ' RiGee IV i DENEB IV 


civilizations in the Milky Way had originated galactic 
designations of their own choosing well before the Third 
Magellanic Conference, at which the so-called “26 Agree- 3 PROCYON CAPELLA 

ment” was reached. In that historic document, the partici- | H lH IV | H HI IV 
pant cultures agreed, in all two-dimensional representations 
of the galaxy, to specify 64 major subdivisions, ordered as 
an 8 x 8 matrix. This was partially in deference to the Earth 
culture (which had done much in the initial organization of 
the Federation), whose century-old galactic maps had 
always shown 16 major regions named after celestial 
landmarks of the Earth sky. Each of these regions was 
divided into four "quadrants, designated by ancient 
"Roman Numerals” (the origin of which has been lost). 

To this day, the official logs of starships originating on 
near-Earth starbases still refer to the major galactic areas as 
“quadrants.” 

The relation between the Historical and Standard 
nomenclatures is shown in the simplified CG map below. 


4 VEGA BETELGEUSE 
l H о ш dV | lI Ilo dV 


5 CANOPUS ALDEBARAN 
| l о ш у | п dH ау 


6 ALTAIR REGULUS 
l поо ш IV 1 Ho dl | 


7 SAGITTARIUS ARCTURUS 
l по Hl IV l ИІН Iv 


8 POLLUX SPICA 
і Hl HF OV | H HT IV 


@Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Super Star Trek'Rules and Notes 
by Robert Leedom and David Ahl 


1. OBJECTIVE: You are Captain of the starship "Enter- 
prise’? with a mission to seek and destroy a fleet of Klin- 
gon? warships (usually about 17) which are menacing the 
United Federation of Planets.* You have a specified 
number of stardates in which to complete your mission. 


supplying your ship. 


2. You will be assigned a starting position somewhere in 
the galaxy. The galaxy is divided into an 8 x 8 quadrant 
grid. The astronomical name of a quadrant is called out 
upon entry into a new region. (See “Quadrant Nomencla- 
ture.") Each quadrant is further divided into an 8 x 8 sec- 
tion grid. 


3. On a section diagram, the following symbols are used: 


Starbase 
Star 


Enterprise 


>! < 
Klingon i 


4. You have eight commands available to you. (A detailed 

description of each command is given in the program in- 

structions.) 
МАУ Navigate the Starship by setting course and 

warp engine speed. 

Short-range sensor scan (one quadrant) 

Long-range sensor scan (9 quadrants) 

Phaser? control (energy gun) 

Photon torpedo control 

Shield control (protects against phaser fire) 

Damage and state-of-repair report 

Call library computer 


SRS 
LRS 
PHA 
TOR 
SHE 
DAM 
COM 


5. Library computer options are as follows (more com- 
plete descriptions are in program instructions): 


Cumulative galactic record 
Status report 

Photon torpedo course data 
Starbase navigation data 
Direction/distance calculator 
Quadrant nomenclature map 


TAUNO 


6. Certain reports on the ship's status are made by officers 
of the Enterprise who appeared on the original TV Show 
—Spock,? Scott,* Uhura,* Chekov,* etc. 


7. Klingons are non-stationary within their quadrants. If 
you try to maneuver on them, they will move and fire on 
you. 


8. Firing and damage notes: 


A. Phaser fire diminishes with increased distance be- 
tween combatants. 

B. if a Klingon zaps you hard enough (relative toyour 
shield strength) he will generally cause damage to 
some part of your ship with an appropriate "Dam- 
age Control" report resulting. 

C. If you don't zap a Klingon hard enough (relative to 
his shield strength) you won't damage him at all. 
Your sensors will tell the story. 

D. Damage control will let you know when out-of- 
commission devices have been completely re- 
paired. 


9. Your engines will automatically shut down if you should 
attempt to leave the galaxy, or if you should try to maneu- 
ver through a star, a Starbase, or —heaven help you—a 
Klingon warship. 


10. In a pinch, or if you should miscalculate slightly, some 
shield control energy will be automatically diverted to 
warp engine control (if your shields are operational!). 


11. While you're docked at a Starbase, a team of tech ii- 
cians can repair your ship (if you're willing for them to 
spend the time required —and the repairmen a/ways un- 
derestimate...). 


12. If, to save maneuvering time toward the end of the 
game, you should cold-bloodedly destroy a Starbase, you 
get a nasty note from Starfleet Command. If you destroy 
your /ast Starbase, you lose the game! (For those who 
think this is too harsh a penalty, delete lines 5360-5390, 
and you'll just get a "you dumdum!"’-type message on all 
future status reports.) 


13. End game logic has been "cleaned up” in several 
spots, and it is possible to get a new command after suc- 
cessfully completing your mission (or, after resigning 
your old one). 


14. For those of you with certain types of CRT/keyboards 
setups (e.g. Westinghouse 1600), a “bell” character is in- 
serted at appropriate spots to cause the following items to 
flash on and off on the screen: 


“Тһе Phrase "*RED*" (as in Condition: Red) 
* The character representing your present quadrant in 
the cumulative galactic record printout. 


15. This version of Star Trek was created for a Data Gen- 
eral Nova 800 system with 32K or core. So that it would fit, 
the instructions are separated from the main program via 
a CHAIN. For conversion to DEC BASIC-PLUS, Statement 
160 (Randomize) should be moved after the return from 
the chained instructions, say to Statement 245. For Altair 
BASIC, Randomize and the chain instructions should be 
eliminated. 


* Designates trademark of Paramount Pictures Corpora- 
tion. Used by permission of Paramount Pictures Corpo- 
ration. 
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Program Listing - Instructions 


REM INSTRUCTIONS FOR "SUPER STARTREK" 
FOR I=1 TO 12: PRINT:NEXT I 


MAR 5» 1978 


PRINT TABC 12) 3 (eo Rd ЖЖ ЖЖЖ ЖЖЖ k ок 1 

PRINT TABC 19); U£ ж" 

PRINT TABCIODO; "+ ж 

PRINT TABC18)3 "ж * * SUPER STAR TREX * * ж” 

PRINT TABCIO2; "* ж" 

PRINT TABCID2''* ж" 

PRINT TAB( 192 3 (Heo жек жж жж жж о жожо еже, 

FOR 1-1 TO 8:PTINT:NEXT I 

INPUT "DO YOU NEED INSTRUCTIONS (ҮЛ) "РК: ТЕ KS "М" THEN 200% 


PRINT 

PRINT "TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN" 
IF ІМРС12513 THEN 46 

POKE 1229,2: POKE 12397, 3: NULL 1 


99 PRINT" INSTRUCTIONS FOR 'SUPER STAR TREK'" 

122 PRINT 

118 РВІМТ"і. WHEN YOU SEE NCOMHAND ?\ PRINTED, ENTER ONE OF THE LEGAL" 
120 PRINI" COMMANDS (NAV, SRS,LRS, PHA» TOR, SHE» РАМ, СОМ, OR XXX) +" 

130 PRINI"2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHOR 
т” 

140 PRINT" LIST OF THE LEGAL COMMANDS PRINTED OUT." 

152 PRINI"3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, THE" 
166 PRINT" 'NAV' COMMAND COMES BACK VITH 'COURSE (1-9) ?'.) IF YOU" 
178 PRINT" ТҮРЕ IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS), THAT СОММАМ 
р" 

180 PRINT" VILL BE ABORTED" 

192 PRINT 

278 PRINT" THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID," 

?89 PRINT"AND EACH QUADRANT 15 FURTHER DIVIDED INTO AN 8 X B SECTOR GRID 
" 

290 PRINT 

302 PRINT" YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE" 
318 PRINT"GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP" 
328 PRINT"N ENTERPRISE; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF" 
330 PRINT"KLINGON ЧАРУНІР5 WHICH ARE MENACING THE UNITED FEDERATION OF" 
Зай PRINI"PLANHETS." 

362 PRINT 

373 PRINT" YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTA 
IN" 

380 PRINT"OF THE STARSHIP ENTERPRISE:" 

385 PRINT 

390 PRINI"NNAVW COMMAND = WARP ENGINE CONTROL ==" 

489 PRINT" COURSE IS IN A CIRCULAR NUMERICAL 4 3 2" 

418 PRINT" VECTOR ARRANGEMENT AS SHOWN 4.2... 

420 PRINT" INTEGER AND REAL VALUES MAY BE enm 

438 PRINT" USED. (THUS COURSE 1.5 15 HALF- S ---ж--- 1" 

аай PRINT" WAY BETWEEN 1 AND 2 eem 

458 PRINT" 4... 

468 PRINT" VALUES MAY APPROACH 9.0, WHICH 6 7 8" 

470 PRINT" ITSELF IS EQUIVALENT TO 1.8" 

488 PRINT" COURSE" 

498 PRINT" ONE WARP FACTOR 15 ІНЕ SIZE OF " 

502 PRINT" ONE QUADTANT. THEREFORE, TO GET" 

$19 PRINT" FROM QUADRANT 6,5 TO 5,5, YOU WOULD" 

520 PRINT" USE COURSE 3, WARP FACTOR 1." 

530 PRINT 

540 PRINT"\SRS\ COMMAND = SHORT RANGE SENSOR SCAN" 

558 PRINT" SHOWS YOU A SCAN OF YOUR PRESENT QUADRANT." 

$55 PRINT 

560 PRINT" SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOJS:" 

570 PRINT" <*> = YOUR STARSHIP'S POSITION" 

588 PRINT" K+ = KLINGON BATTLE CRUISER" 

590 PRINT" »!« = FEDERATION STARBASE CREFUEL/REPAIR/RE-ARM HERE!) 
" 

608 PRINT" * = STAR" 

605 PRINT 

618 PRINT" A CONDENSED ‘STATUS REPORT’ WILL ALSO BE PRESENTED." 

629 PRINT 

640 PRINT"NLRSN COMMAND = LONG RANGE SENSOR SCAN" 

650 PRINT" SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE" 
660 PRINT" OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAN)" 
678 PRINT" THE SCAN IS CODED IN THE FORM %00%%, WHERE TH UNITS DIGIT 
" 

680 PRINT" IS THE NUMBER OF STARS, THE TENS DIGIT 15 THE NUMBER OF" 
690 PRINT" STARBASESs AND THE HUNDRESDS DIGIT 15 THE NUMBER OF" 

700 PRINT XLINGONS." 

705 PRINT 

706 PRINT" EXAMPLE - 287 = 2 KLINGONS, NO STARBASES, 4 7 STARS." 

710 PRINT 

720 PRINT'NPHAN COMMAND = PHASER CONTROL." 

738 PRINI" ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRUISERS BY " 
748 PRINT" ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO" 

750 PRINT" DEPLETE THEIR SHIELD POWER. <ВЕМВЕП» KLINGONS HAVE" 

768 PRINT" PHASERS TOO!" 

778 PRINT 

788 PRINT"\TOR\ COMMAND = PHOTON TORPEDO CONTROL" 

792 PRINT" TORPEDO COURSE 15 THE SAME AS USED IN WARP ENGINE CONTROL 
^ 

898 PRINT" IF YOU HIT THE KLINGON VESSEL» HE 15 DESTROYED AND" 

810 PRINT" CANNOT FIRE BACK AT YOU. IF YOU MISS, YOU ARE SUBJECT TO 
" 

898 PRINT" HIS PHASER FIRE. ІМ EITHER CASE, YOU ARE ALSO SUBJECT TO 
" 

825 PRINT" THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADRANT." 

830 PRINT 

835 PRINT" THE LIBRARY-COMPUTER (NCOMN COMMAND) HAS AN OPTION ТО" 

849 PRINT" COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)" 

859 PRINT 

860 PRINT"\SHE\ COMMAND = SHIELD CONTROL" 

872 PRINT" DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED IO THE" 
880 PRINT" SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 
" 

890 PRINT" THAT THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENER 
Gv" 

928 PRINT 

910 PRINT'ADAMN COMMAND = DAMMAGE CONTROL REPORT" 

928 PRINT" GIVES THE STATE OF REPAIR OF ALL DEVICES. WHERE A NEGATI 
VEM 

938 PRINT" 'STATE OF REPAIR' SHOUS THAT THE DEVICE 15 TEMPORARILY" 


940 PRINT" DAMAGED." 

950 PRINT 

960 PRINT'\COMN COMMAND = LIBRARY-COMPUTER" 

970 PRINT" THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS:" 

989 PRINT" OPTION 8 = CUMULATIVE GALACTIC RECORD" 

996 PRINT" THIS ӨРТІ ОМ SHOVES COMPUTER МЕЛОВҮ OF THE RESULTS OF A 
LL" 

1000 PRINT" PREVIOUS SHORT AND LONG RANGE SENSOR SCANS" 

19198 PRINT" OPTION 1 = STATUS REPORT" 

1090 PRINT" THIS OPTION SHOWS THE NUMBER OF KLINGONSs STARDATES." 
1038 PRINT" AND STARBASES REMAINING IN THE GAME." 

1040 PRINT" OPTION 2 = PHOTON TORPEDO DATA" 

1852 PRINT" WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRI 
SE" 

1069 PRINT" TO ALL KLINGONS IN YOUR QUADRANT” 

1070 PRINT" OPTION 3 = STAREASE МАУ DATA" 

1988 PRINT" THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY " 
1290 PRINT" STARBASE WITHIN YOUR QUADRANT" 

1100 PRINT" OPTION 4 = DIRECTI ON/DI STANCE CALCULATOR” 

1118 PRINT" THES OPTION ALLOWS YOU TO ENTER COORDINATES FOR" 
1120 PRINT" DI RECTI ON/DI STANCE CALCULATI ON S" 

1130 PRINT" OPTION 5 = CALACTIC /REGION NAME/ МАР" 

1148 PRINT" THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR " 
1150 PRINT" GALACTIC REGIONS REFERRED TO IN THE GAME." 

1992 POKE 1229, :РОКЕ 1237, 1:NULL Ø 

2000 PRINT: PRINT: PRINT 

0010 PRINT "TURN CASSETTE PLAYER ON AND HIT ANY KEY EXCEPT RETURN" 
2020 IF INP(I)-13 THEN 2098 

8030 PRINT 

2048 PRINT "TURN CASSETTE PLAYER OFF AND " 

PARA PRINT "TYPE 'RUN' WHEN COMPUTER PRINTS ‘okt 


Program Listing - The Game 


16 


159 


ТЕП 
REH 
ПЕН 
REH 
REM 
REM 
REA 
REM 
БЕН 
ПЕМ 
REM 
REM 
REH 
REM 
REH 
REM 
REM 
REH 
REM 
REM 
REM 
REM 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: PRINT: 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT: PRINT: PRINT: PRINT: PRINT 
CLEAR 688 

255" 

DIH 606,82,С09, B+ KC 32 PINCI oZ CB 62 DEB? 

TRINTCRNDC 1) #29428) * 109: T6z T: Т9= 25* INTC RNDC D 102 : Рд= 6: EF 399: Е-Е 
р=18:рб=Р: 59= 200: 5= 2: Б9=2:К9= 9:05 "XD Sc" 
DEF FNDCD)=SORCCKCL 2 12-51) TZAK 22 - 522 1 2) 
DEF FNICIDSIUTCRNDCIO*7-98*1-01) 

REM INITIALIZE ЕМТЕРРГІ2Е"5 POSITION 
QI=FNRC 1): O28 РЫР 1) :51= FARCI) : SEE FRCL) 
FORI-Z1TO9: CCIo IDs: CCL» 2) SG: NEXTI 

CC3 D 81:002, De-1:6CA Doo 1:CCAL228- 15CC S2 2022-1: CC65 2) =-1 
CCLD a= 
FORIZ1TOB: IDEE: NEXTI 
AISS"NAVSRSLDSPHATOPSH EDAMC ОХХХ" 

REM SETUP WHAT EXHISTS IN GALAXY , + + 
REM K3= 
РОМ = 1Т03: ГОРЈЕ 1108:X 32 9:2 C12 J2 5 9: R1 DNDC 1) 
LFR1> +98 THENK3= 
IFR1».95THEHK32 2: K9=K9+2:G0T 8B 
LFRi> -BOTHENK3= 1: KO 9*1 

BG=@:1 FRNDC 1) >.9 6THENB3= 1:B9=B9+1 


жжжж 
ЖЖЖ 
жжжж 
жжжж 
жжжж 
жже 
жжж 
жжж 
жжж 
жжж 
жжж 
ek 
Жжжж 
жж 
жжж 
жжж 
жжж 
жжж 
kikk 
жжж 


SUPER STARTREK 


7 HAY 16,1978 


- REQUIRES 24K HEHORY 
жжжж STAR TREK жжаж RA 

STMUULATION OF A MISSION OF THE STARSHIP ENTERPRISE» 
AS SEEN ON THE STAR TREK TV SHOW. 
ORIGI ONAL PROGRAM BY MIKE MAYFIELD» HODIFIED VERSION 
PUBLISHED IN DEC'S "101 BASIC GAMES", BY DAVE AHL. 
MODIFICATIONS TO THE LATTER (PLUS DEBUGGING) BY BOB 
LEEDO ~ APRIL & DECEMBER 1974, 
WITH A LITTLE HELP FOOI HIS FPIENDS + + + 
COMMENTS, EPITHETS» AND SUGGESTIONS SOLICITED ~~ 
SEJD TO: П. Ce LEEDOM 

VESTINGHOUSE DEFENSE 4 ELECTRONICS SYSTEMS CNTR. 

BOX 746s HeS. 338 

BALTIMORE, HD 21283 


CONVERTED TO MICROSOFT 8 K BASIC 3/16/78 BY JOHN BORnDERS 
LINE NUMBERS FROH VERSION STREK7 OF 1/12/75 PRESERVED AS 
MUCH AS POSSIBLE WHILE USING MULTIPLE STATEIENTS PER LINE 
SOME LINES ARE LONGER THAN 72 CHARACTERS; THIS WAS DONE 
BY USING "?" INSTEAD OF "PRINT" YHES ENTERING LINES 


PRINT 
HCC-1701" 


THE USS ENTERPRISE --- 


`. 


is" 


Сб 1281:CC 77 1081: CCB, 125 1:008, 209 1: 0C92 22 =] 


ғ KLINGONS Ba= # STARBASES 53= # STAnS 


2К9-К9%3:6070980 


GCIs J) «К39ж100%Б3% 1L OC FNBCIDO : EX TUtNEX TI : 1 FK9» ТӘ THEN TO KO +1 
IFB9<>8THEN1200 


РЕбСО1, 
B9=1:Gç 
К7=К9:І 


02) < 200 THENGCC1, 02) = СССі› 02) +1020: KO KO 1 
Ole 02) = 6001,02) +10: QI FNRC I2: Q2S FUNC DD 
FBO<> 1 THEN S=""S":X@S="" ARE " 


PRINT'YOUR ORDERS ARE AS FOLLOWS:" 


PRINT" 
PRINT" 
PRINT" 


PRINT" 


PRINT:PRINT"HIT ANY KEY EXCEPT RETURN 
ISRNDCD:IF INPCI2S13 THEN 


DESTROY THE';:K9; "KLINGON WARSHIPS WHICH HAVE INVADED" 


THE GALAXY BEFORE THEY CAN ATTACK РЕРЕПАТІ ON HEADQUARTERS" 
THERE'SX9 


ON STARBATE';: TD* TO; " THIS GIVES YOU"; T9;"'DAYS- 


“3 Б9; "STARBASE"SXSJ" IN THE GALAXY FOR RESUPPLYING YOUR SHI 


1389 


REM HERE ANY TIME NEW QUADRANT ENTERED 
Z4s01:Z25202:K 326: B35 0: 53=0:65= 9: Пас. БжМ 12:25 01200006 01, 02) 
IrFQl«10P801280n02« | ORG2>8 THEN 1629 


GOSUB 9030: PRINT: IF Ta<>T THEN 


1490 


PRINT"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED" 


PRINT'I 


PRINT"NOW ENTERING “3G283" QUADRANT + + + 


'";698;** ,":60T0. 1500 


М THE GALACTIC QUADRANT. 


PRINT: MG=INTCGC Qh. Q2)*+G1) 2 BOX INTCGCOI, 02) ж. 12 - 19*K3 
S3=GCQ)s Q2) - 199 *K3- 10€ B3: I FK3z D THEN 1590 


PRINT'"COHBAT AREA 


PRINT" 


CONDITION RED':IFS»280 THENI59€ 
SHIELDS DANGEROUSLY LOW" 


FORISITO3:KCI^1050:KCI2 209 QO:NEXTI 


WHEN READY TO ACCEPT COMMAND" 


1600 
1660 
1670 
1680 
1720 
1788 
18 26 
1888 
1910 
1980 
1990 
2020 
2030 
2040 
20598 
2060 
8080 
2140 
2160 
2180 
2190 
2268 
2216 
2220 
2238 
2240 
2250 
2266 
2290 
2300 
2310 
2330 
2352 
2360 
2380 
2398 
2429 
2430 
2470 
2490 
2509 
2519 
2538 
2559 
2568 
2570 
2580 
2590 
2612 
2669 
9700 
2172 
2790 
2800 
2819 
28 4G 
2880 
2910 
2932 
2960 
38020 
3038 
366€ 
307€ 
3116 
3148 
3172 
3240 
3320 
3350 
3366 
3376 
3430 
3450 
3478 
3489 
3490 
3520 
3550 
3595 


3626 7 


3670 
3718 
3750 
3796 
3890€ 
3818 
3820 
3830 
3840 
3850 
3860 
3878 
3900 
3916 
3938 
39 49 
3986 
3998 
4909 
4932 
4240 
4060 
4120 
4186 
4210 
4230 
4250 
4269 
4265 
4870 
4280 
4330 
4352 
4360 
4370 
4400 
4410 
4456 


РОВІ = 1Т03:КСІ, 3) = 0: МЕХТІ :05=2 5+2 5+2 5+2 5+0 STZSTZSTLEFISCZS,17) 
REM POSITION ENTERPRISE IN QUADRANT» THEN PLACE "КЗ" KLINGONS» 
REM "B3" STARBASES, & "S3" STARS ELSEWHERE. 
ASzUCEUIZISS1:22252:G0SUBB 670: 1 FK3< 1 THEN 1H 20 

FORI= 1 TOKS: GOSUBS 590: ASz 4)" :ZIS RI: ZOS R2 

GOSUBS 674: KC Le 1) = КІ: КС, DERIK? 3) = SO*CO» 5E RNDC 122 s NEX TI 
IFB3« 1 THEN]19 12 

GOSUBS 596: AS="> 1«":Z I2 R1: B4= RI : Z8 R2: BS= RO: GOSUBB 670 
FORI=1T0S3:G0SUB8590:AS=" ж ":215RI:Z2-RB:GOSUBB 670: NEXTI 
GOSUB6430 

IFS+E>10THENIFE>180RDC7)=@THEN206D 

PRINT:PRINT'*€* FATAL ERROR жж YOU'VE JUST STRANDED YOUR SHIP IN " 
PRINT"SPACE":PRINI"YOU HAVE INSUFFICIENT MANEUVERING ENERGY,"; 
PRINT" AND SHIELD CONTROL"'":PRINT"IS PRESENTLY INCAPABLE OF CROSS" 
PRINT"-CIRCUITING TO ENGINE ROOM!!'":GOTO6220 

INPUT"COMMAND";AS 

FORIZ1TO9:1FLEFTS(CAS, 3) <>MI DSCAISs 31-2, 3) ТНЕМ2160 

0М100702300» 198 0. 4000» 4260» 4700» 5530» 5690» 7290» 6270 
NEXTI:PRINT"ENTER ONE OF THE FOLLOWING:" 


& 


PRINT" NAV (TO SET COURSE)" 

PRINT" SRS (FOR SHORT RANGE SENSOR SCAN)" 

PRINT" LRS (FOR LONG RANGE SENSOR SCAN)" 

PRINT" PHA (TO FIRE PHASERS)* 

PRINT" TOR (TO FIRE PHOTON TORPEDOES)” 

PRINT" SHE (TO RAISE OR LOWER SHIELDS)" 

PRINT" DAM (FOR DAMAGE CONTROL REPORTS)" 

PRINT" COM СТО CALL ON LIBRARY-COMPUTERO" 

PRINT" XXX СТО RESIGN YOUR COMMAND) ": PRINT: GOTO1990 


REM COURSE CONTROL BEGINS HERE 
INPUT"COURSE 60-9) "3 C1: IFC1z9 THENC Iz 1 
IFCl1»-lIANDC1«9 THEN2359 
PRINT" LT« SULU REPORTS, 
XSz"B':IFDOD«e9THENXSS"Qg.2" 
PRINT"WARP FACTOR (0- $3") "3 :INPUTWI: 1 FDC 1) <@ANDWI>~«2THEN2478 
IFUL> ANDY 1<=8 THEN2 499 

IFWis @THENI996 

PRINT" CHIEF ENGINEER SCOTT REPORTS 
PRINT" WARP ";y1;"1'":GOTOI990 
РПІМТ"УАВР ENGINES ARE DAMAGED. 
N= INTCW148 +. S) s 1 FE-N>=@ THEN 259 ü 
PRINTY ENGINEERING REPORTS ‘INSUFFICIENT ENERGY AVAILABLE" 
PRINT" FOR MANEUVERING AT JUADP';yij;t"í'n 
IFS«N-EORDCTO« GTHEN 199g 

PRINT"DEFLECTOR CONTROL ROOM ACKNOWLEGES":SS"UNITS OF ENERGY" 
PRINT" PRESENTLY DEPLOYED TO SHIELDS." 
50701990 

REM KLINGONS MOVE/FIRE ON MOVING STARSHIP + » > 

FOPI= LTOK3: 1 FKC1s 9) =6THEN2 708 

Ags" "2Z=KCls 12:Z222KCIo 2): GOSUBE 670: GOSUBB 590 

Kis IDZI KCI; 2522: AGH "++": GOSUBE 670 

WEX TI: 605086200: Di=@: Dé=WitI ЕЧ1>= 1 THEND6= 1 
FORI=1TOG:I FDCL) >= РТНЕМ2889 
DCLI=DCLI+DG6s1 FOC 1) >~. LANDDC ID < O THENDCIOz--.1:GOTOP2B880 

IFDCI)2< GTHEN2B8 Ü 
IFD1<>1THEND1=1:PRINTUDAHAGE CONTROL REPORT: 
PRINTTABC8)3:Ri=i:GOSUBG79@:PRINTG25;" REPAIR COMPLETED." 
МЕХТІ:І FRNDC 1) >e 2THEN3Ø70 

RIF FNRC1) 2: FRND( 1) 2-.6THEN2800 

DCN DORI -CANDC 1)*5+1): PRINT DAHAGE CONTROL REPORT: 
GOSUBS 790: PRINTG2S3"" DAMAGED": FRINT:GOTO3876 
DORIDZDORID*BRNDCIOX23*T1:PRINT"DAHAGE CONTROL REPORT: 
GOSUBB79@: PRINTG283" STATE OF REPAIR IMPROVED": PRINT 
REM BEGIN MOVING STARSHIP 

А$=" “"SZISINTCSI) :202=1МТС52) :6 05006679 

XICO LIC CC Cit ЕУ ACCC 1D #CCIMINTCOL 0 :Х= 51:Ү= 52 
хаа ССС, 2) FCCCCIEI220 -CCCI^ 2) #CCI~INTCC1)) 042 01: 657 G2 
FORIZSITON:SISSITÁAI:i SE2 SE*XO2:IFSIC D0ORSI229 ORS2< 1 ORS2>=9 THEN3586 
SBÉSINTCEID*OAT*INTCSE)K3-26:1FHIDS(GS, 58,235" — "THEN3366 
SISINTCS1-X12: S£2INTCS2-X22 ; PRINT"VARP ENGINES SHUT DOWN AT "3 
PRINT"SECTOR":51;',": S23 "DUE TO BAD NAVAGATI ON" :GOTO3270 
МЕТІ: 51=1ІНТС 51) : S2-INTCSOD 

А5ш“<ж>%; ІлзІМТС512:22ч1М7552):6050/88670:6051Л83910: 18-1 
IFWI«ITHENTG-. I#INT( 1g#W1) 

T2 TF 18:1 FT2 TO TO THEN 6220 

REM SEE IF DOCKED, THEN GET COMMAND 


"INCORRECT COURSE DATA, SIR!'":G0TOI1998 


"x 
"IX 


‘THE ENGINES WON'T TAKE'; 


MAXIUM SPEED = WARP 0.2%:00701990 


my 
H 


ө"; 
H 


"e 
3 


GOTOI98E 

REM EXCEEDED QUADRANT LIMITS 

HEORQL+KANEX 1: Y=B* O2tY AN#X 2: GIS INTCX/8) : G22 IN TCY ИВ) : SIS IN TCX- Q1¥B) 
SQeINTCY~ O28) si FSIS 0ТНЕМО1=01-1:51=8 

OTHENQ2= G2~1: S28 


151=1 


1Е02>8 THENX 
ІЕ5«Ф ТН EN 38 60 

PRINT"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:" 

PRINT’ "PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER" 
PRINT" IS HEREBY *DENIEDr. SHUT DOWN YOUR ENGINES." 
PRINT"CHIEF ENGINEER SCOTT REPORTS ‘WARP ENGINES SHUT DOWN" 
PRINT" АТ SECTOR':S1;",": 525 "OF QUADRANT";:Q015",";Q25".'" 
IFT»TO*T9 THEN6226 

ІЕ8ж01%02-8ж04%05ТН ЕМЗ3370 

Те«Т7ж%1:005083919:5070132802 

REM MANEUVER ENERGY S/R жж 

Ez E-N- 10:1 FEo= @THENRETURN 

PRINT" SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER." 
5=5+Е: Ee Ø: I FS<=GTHENS*@ 

RETURN 

REM LONG RANGE SENSOR SCAN CODE 

LFDCQ)<GTHENPRINT'LONG RANGE SENSORS ARE INOPERABLE":GOTO1996 
PRINI"LONG RANGE SCAM FOR QUADRANTS 015" "02 

"SPRINTOIS 

FORI-QI-1TOQI*1:HC I25-1:NC 2277 2:NC32- 3: FORJ- O2- 1 TOC2* 1 
IFl»0ANDI«9ANDJ2OANDJ«O9 ТНЕМЫС ЈУ CO* 222 GCIo J2 :ZCI o J2 GÉCIS J2 
WEXTJ: FOPBLZITOG:PRIHT": "LE:IFNCOLOSDTHENPRINT'*x* "3:GOTOA230 
PRINTRIGHTSCSTRSONCLO +1000 323" "55 
NECCL:PRINT":U:PRINTOLIS:NEXTI:GOTOI999 

REM PHASER CONTROL CODE BEGINS HERE 

IFDC4)< ФТН ENPRIN T"PHASERS. INOPERATI VE": GOTO1990 

TFK3>8 THEN 4336 

PRINT'SCI ENCE OFFICER "SENSORS SHOW NG ENEMY SHIPS" 
PRINT" IN THIS QUADRANT'":GOTO1990 
IFDC(GO«BTHENPRIHT"COHPUTER FAILURE HAMPERS ACCURACY" 
PRINT"PHASERS LOCKED ON TARGETS  ''; 

PRINTEHERGY AVAILABLE ="3 ЕЈ "UNITS" 

INPUT'NUMBER OF UNITS TO FIRE'SX:] FX<= G@THENIO9G 

I FE-K< @THEN4363 

ES E-X:1 FDC 7)< OTHENK=X# RN DC 19) 

HISINTCX/K3) : FORIZ 1I TOO: I FKCI 2 32 <= OTHEN A679 


SPOCK REPORTS 


160 


He CN TCCHE/FNDCG) )*CRNDC1)+2)) 21 FH» 1 SXKCIo 3) ТНЕМ4530 
PRINT'"SENSORS SHOW NO DAMAGE TO ENEMY AT "RCI? D3 "SKCLs 22:GO0TO46 


KCI,32z2KCIo 3 --H: PRINTH; “UNIT HIT ON KLINGON AT SECIOR'"GK(CI?120;","; 
PRINTKCI?,20:1FK(Io 3)<=@THENPRINT"#k* KLINGON DESTROYED жжж";0 070458 


PRINT" CSENSORS SHOW'S KCI. 3) 3 "UNITS REMAININGO':GOTOA4670 
K3zK3-1:K92K9-1:ZI-KCIo 12 £282 KCIo 20: Age" ":GOSUBB 670 

KCI,3220:GCO1, 0222GCQ1,2 022 -IAZ QI Q222GC Ol» 02) : I F9 Q THEN 6370 
NEXTI:GOSUB68929:GOTO1990 

REM PHOTON TORPEDO CODE BEGINS HERE 

IFPS=@THENPRINT"ALL PHOTON TORPEDOES EXPENDED'":GOTO 1990 
IFDC5)<STHENPRINT"PHOTON TUBES ARE NOT OPERATI ONAL'":GOTOI998 
INPUT"PHOTON TORPEDO COURSE (1-90 ";C1:IFCizs9 THENCI=1 
IFC1»-1ANDCI«9 THEN 48 59 
PRINT'"ENSIGN CHEKOV REPORTS, 
50701990 
ХівССС1512%(С<С1%1,12-ССС61,120ЖСС1-ІМТСС122: ESE-2: PS PH] 
X226CCI^ 2) £CCCCI12 22 -CCCI2 20D DFCCI- IN TCCIOO : X2 S1: Y4 S2 
PRINI"TORPEDO TRACK:" 
X=X+X1:Y=Y+X2:X3=INTC(X+.,S):Y3=#INTCY+., 5) 
IFX3< 10RX3>8 ORY 3« 1 ORY 328 TH EN549 Z 
PRINT" U"RK33 "Ы" Ү3; age" 
IFZ3< >OTHEN 49 26 

AS="+K#"3Z aX: Z2=¥ : GOSUBBE 3G: 1 FZ 3+ STHENS216 

РВІМТ"жЖж KLINGON DESTROYED eek":K38K3-1:K97X9-1:I1FK9«- OTH ENG37G 
FORIZ1ITO3:l РХЗЕКСІ, i D) ANDY 32 KC P, 2) THENS190 

WEXTI:I-3 

KC1,32-0:GOTOS54398 

ASz" ж "32 12%: 22=71G 0508868 3G: I FZ 956 THENS 288 

PRINT"STAR AT";X33,":Y3: "ABSORBED TORPEDO ENERGY» '': GOSUB6G26:GO0TO! 


"INCORRECT COURSE DATA, SIR!'" 


":Zl1=X:Z2=Y:G0SUB8830 


AsS=U>1<4U:Z1=X:Z2=Y:G0SUB8839:IFZ 
PRINT'*** STARBASE DESTROYED жж 
1FB9»200DK9»T-TO-T9 THENSAO9 
PRIHT"THAT DOES ІТ, CAPTAIN!! YOU ARE HEREBY RELIEVED OF COMMAND" 
PRINT"AND ЅЕЧТЕНСЕр TO 99 STARDATES AT HARD LABOR ON CYGNUS 1211" 
GOTO 6270 

PRINT’ STARFLEET COMMAND REVI EVING YOUR RECORD TO CONSIDER" 
PRINT"COURT HAZDTIAL!":DO-Q 

Z]zX:Z229Y:AS-" 91605006672 

001» 02) EK OE 188 * BO*1953:ZCQ12 0222GC O14 02) :5 05086020: 00701990 
PRINT"TORPEDO HISSED'":GOSUB6EZO2:G0TO1990 

REM SHIELD CONTROL 

IF D( 79<@THENPRINT’ SHIELD CONTROL INOPERABLE": GOTOI998 

PRINT ENERGY AVAILABLE ="J EtSI:INPUT"NUABER OF UNITS TO SHI ELDS'3x 
LFX<@ORS*X THENPRINT'< SHLELDS UNCHANGED> ":GOTO1999 
IFX<= EtS THENS 638 
PRINT'SHIELD CONTROL REPORTS 


STHENAT6S 
:B3= 83-1: B9=B9~-! 


‘THIS IS NOT THE FEDERATION TREASURY» 


PRINT"«SHIELDS UNCHANGED»'":G0T101990 


E= E+ 5-Xs S]XNiPRINT' DEFLECTOR CONTROL POO REPORT:" 
PRINT"  'SHIELDS NOU AT'";INT(CSO;"UNITS PER YOUR COUUJAND.'":G0T019998 
REM DAMAGE CONTROL 


ТЕРС 6) >= ОТНЕМ 5919 

PRINT" DAMAGE CONTROL REPORT NOT AVAILADBLE":1FDO-GTHENI1996 
03=0: FORI=1TOB: E FDCI2 « C THEND3- D3 «1 

МЕХТІ:І ЕрЗе01Н ЕМ1996 

PRINT: D32 D3+ D431 FD3>= I TH ENN D3= ,+9 

PRINT" TECHNICIANS STANDING БҮ TO EFFECT REPAIRS TO YOUR SHIP" 
PRINT"ESTIMATED TIHE TO REPAIRS. 21s INTC1GG*D3)3 " STAEDATES" 
INPUT'JILL YOU AUTHORIZE THE REPAID ORDER CYAD AS 
lIFAS«»"Y"THEN 1990 

FORI-1TOS:IFDCID«OTH EJDCIOSE 


2 NEXTIs: TE TH D3t «1 


PRINT: PRINT’ DEVICE STATE OF REPAIR": FORMI= 1708 
GOSUBS 79€: PRINTG2S3LEFTS(Z Ss S5~-LEN( GOS) 2 INTCDCB128190) k. Jt 
NEXTRI:PDINT:IFDOc2OTHENS7298 

GOTO 1998 

REM KLINGONS SHOOTING 

I FK3<= OTH ENRETURN 


; TFDG<>QTHENPRINT'STARBASE SHIELDS PROTECT THE ENTERPRISE": RETURN 


FOPRI= I TOS: 1 FKCI,2)0«29IHEH6200 

HEINTCCKCEs 3) /FNDC 0 * C24 PRN DC I) Y i S2 S-HikCls 322KCI 3) /CO+RNDC ES)? 
PRINTH "UNIT HIT ON ENTERPRISE FROM SECTOR"UIKCIS1):",":XCIo2) 
IFS<= THEN 6248 

PRINT" *SHIELDS DOWN TO';5; 
TFRND( 1) >. GOH /S<= -S2THENG295 
RIS FWRD DCRI = DCRI) -H/S- - S*PNDC 1) :GOSUBB8 799 

PRINT’ DAMAGE CONTMOL REPORTS ''36253" DAMAGED BY THE HIT'" 
NEX TE: RETURN 

ПЕН END OF GAHE 

PRINT"IT IS STABRDATE": T:GOTO 6270 

PRINT: PRINT'THE ENTERPRISE HAS BEEN DESTROYED. 
PRINT'YILL BE CONGUEDED'":GOTO 6222 

PRINT’ THERE UVERE':KO;"KLINGOM BATTLE CRUISERS LEFT AT" 
PRINTUTHE END OF YOUR HISSION." 

PRINT: PRINT: I FE9= ТН EN6365 

PRINT" THE FEDERATION IS IH NEED OF A NEV STARSHIP COMMANDER" 
PRINT"FOR А SIMILAR HISSION -- IF THERE IS A VOLUNTEER" 
INPUT"LET HIM STEP FORWARD AND ENTER 'AYE'"AS:LIFASs"AYE'THENIO 
END 

PRIHTI"CONGRULATION. CAPTAIN! THE LAST KLINGON BATTLE CRUISER" 
PPINT'"HMENACING THE FEDENATION HAS BEEN DESTROYED. ": PRINT 
PRINT'"YOUR EFFICIENCY RATING 15"3 19G@*(K7/¢ I~ 192) 12:GOTO629 0 
REM SHORT RANGE SENSOR SCAN 4 STARTUP SUBROUTINE 
FOnI-SI-1TOS1*1: FORJ- S2- 1 TOS2* 1 

ІРІМТСІз.52<10В191(1%.5)2>8 ORINTCU+- 5) < LORIN TC J+. 5) 28 THEN 6540 
А5ч">1<%;21чІ:2рғ40:605000820:1Ғ02-<1ТНЕМ6580 
NHEXTJ:NEXTI:DO-0:GOTOG6659 

DS= 1: CS="DOCKED": E= EG: P= PO 

PRINT'"SHIELDS DROPPED FOP DOCKING PURPOSES": 5= 0:6 0Т06725 
IM(3>@THENCS="*RED*':GOTO6720 

CSa "GREEN": i FE< ЕСЖ 1 THENCS= "YELLOW" 

LFD 2) >= G@THEN6776 

PRINT: PRINT #** SHOMT RANGE SENSORS ARE OUT жжж ENT: RETURN 
Oss" "SPDRINTOI ORIZSITOS 
FORJsCi- D*24*1TOCI-1) *24* 2285 TEPQ: PRIN T" "SHIDSCQS^ Jo 32 2 : NEX TJ 
ONI GOTO6E 59, 6900» 6962, 7220, 7070» 7128+ 7189, 7248 


"UNI TS2": I FH< 28 THEN 6200 


THE FEDERATION "j 


PRINT" STARDATE U"SYNTCTE100)s 2 1:2 GOTO7266 
PRINT" CONDI Ti OW “;С%:00т07269 

PRINT" QUADRANT "; Q2:G0107260 
PRINT" SECTOR "3 S9:GOTO7260 
PRINT" PHOTON TORPEDOES  "SINTCP2:GOTOT7262 
PRINT” TOTAL ENERGY "SINTCE+S) : GOTO? 262 
PRINT" SHIELDS "SINTCS):GOTO7 268 
PRINT" KLINGONS REHAINING'SINTCHKO) 


NEXT1: PRINTOIS: RETURN 
REM LIBRARY COMPUTER CODE 


7290 
7320 
7358 
7360 
7378 
7372 
7374 
7376 
7378 
7388 
7390 
7490 
7530 
7540 
7542 
7543 
7544 
7546 
7550 
7560 
7578 
7630 
7780 
7120 
7740 
7800 
7850 
7890 
7900 
7940 
7960 
М 


7970 
7980 


7990 
8010 


IFD(8)<@THENPRINT"COMPUTER DISABLED":GOTO1990 
INPUT"COMPUTER ACTIVE AND AWAITING COMMAND';A:1FA«ÓTHENI99G 
PRINT:H8z1: ONA*1GOTO7540^ 7900, 8870, 8 500,8 159^ 7498 
PRINT'"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:'' 


PRINT" Ø = CUMULATIVE GALACTIC RECORD" 

PRINT" 1 = STATUS REPORT" 

PRINT" 8 = PHOTON TORPEDO DATA" 

PRINT" 3 = STARBASE NAV DATA" | 

PRINT" A = DIRECTI ON/DISTANCE CALCULATOR” 

PRINT" S = GALAXY "НЕСІ ОМ NAME’ MAP'":PRINT:GOTO7320 


REM SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP 

H8= Ø; G5=1: PRINT" THE бА. АХҮ":6 0Т07550 
REM CUM GALACTIC RECORD 

INPUT"DO YOU WANT A HARDCOPY? IS THE TTY ON CY /N) IAS 
IFA$-"Y"THENPOKE1 229 , 2: POKE! 237» 3:NULL 1 

PRINT: PRINT" "; 

РВ1МТ"СОМРОТЕН RECORD OF GALAXY FOR QUADRANT'2Q12","202 
PRINT 

PRINT" 1 2 3 4 5 6 7 в" 
018ш" 
PRINT01S:FORI=1T08:PRINTI;:IFH8=Q@THEN7740 

FORJ= 1T08: PRINT" “StEFZC1sJ)= OTHENPRINT *#*"3 00707720 
PRINTRIGHTSCSTRSCZCIJ)*100025 32; 

NEXTJ: GOTO78 50 
Z4ázl:25-21:GOSUB9039:JOZINTCIS-. SkKLEN(G25)) : PRINTTABC UB) 2G28* 
Z5=5:GOSUB 9930: JO=INTC 39~. 5#LENC G25) ) : PRINTTABC JO) 2 G285 

PRINT: PRINTOLS:NEXTI : PRINT? POKEL 229, Q: POKE] 237+ 1:NULL@:GOTO1996 
REM STATUS REPORT 

PRINT " STATUS REPORT: ":XSz""':;IFK9»lTHENXSz'"S" 
PRINT'KLINGON'SXS3" LEFT: ";K9 


РВІМТ"И15510М MUST BE COMPLETED IN", 1*INTCCTO* To - T2) 102 7 " STARDATES 


X$z"S":I FBO< OTHENX S2 "'": I FB9< 1THEN8019 


PRINT"THE FEDERATION IS MAINTAINING"; B9; "STARBASE';X5;" IN THE GALA 


80705690 

PRINT"YOUR STUPIDITY HAS LEFT YOU ON YOUR ON IN" 

PRINT" THE GALAXY ~~ YOU HAVE NO STARBASES LEFT!":GOTO569& 
REM TORPEDO, BASE NAVs D/D CALCULATOR 

I FK3¢= @THEN4278 

XS= "3 LF 1 THENK S="S" 

PRINT" FROM ENTERPRISE TO KLINGON BATTLE CRUSER':XS 

H8=@: РОНІ= 1 TO3: I FKCI 22 <= OTHENB 488 
WARK Ls D :X-SKCIL 2) 

C19 51:47 52:G0108229 
PPINT"DIRECTION/DISTANCE CALCULATOR:" 
PRINT"YOU ARE AT QUADRANT "3013", "3 623" 
PRINT"PLEASE ENTER":INPUT" INITIAL COORDINATES (XsY) "3 CISA 
INPUT" FINAL COORDINATES (XeY)"sW1lsX 

XzX-A: A-Cl-Wl:IFX« DTHENB 350 

I Fac ØTHENB 412 

I FX>@TH ENG 080 

I FA=@THENC l= 5:GOTOB 290 

Сізі 

ІҒАБ5СА2<«АВ5<Х) THENB 336 

PRINT'"DIRECTION z'2CI*(CCCABSCA) -ABSCO D &ABSCA)2 /ABSCA)) 1 GOTOBS 460 
PFINT"DIRECTION ="3C1+CABSCA) /ABSCO D :GOTO8 460 
IFA»9THENCIZ3:GO0TOBA29 

LFX<>@THENC 1= 5:6 0T08 290 


SECTOR "jSlp" "3 S2 


Сіз? 


1 FABS¢ A) >=ABS(X) TH ENB 450 
PRINT“ DIRECTION z":CI*(CCABSCO ~ABSCA) ) +ABS(X) ) /ABSCX) ) :G0T08 468 
PRINT DIRECTION =";CG1+CABSCX) /ABSCA22 

PRINT" DISTANCE ="; SQRCX12+A1 2) s I ЕН8= 1 THEN 1990 

МЕХТІ:60701990 

IFB3«»QTHENPRINT"FROM ENTERPRISE TO STARBASE:":WIsBA:X-B5:GOTOB 120 
PPINT'HR. SPOCK ПЕРОГТ5»  'SENSORS SHOW NO STARBASES IN THIS"; 
PRINT" QUADRANT. '":00701990 

REM FIND EMPTY PLACE IN QUADRANT (FOR THINGS) 

RIS FNRC1):R2=FNRC1)sAS=" ":21411:22- ROtGOSUB8830:1FZ3-0THENB 590 
RETURN 

REM INSERT IN STRING ARRAY FOR QUADRANT 
S8s1NT(Z2-. S) 341NTCZ1-4 5) #24+1 

IF LENCAS)<>3THEN PRINT"ERROR": STOP 
IFS8-1THENQSSAS*RIGHTSCQS? 189) : RETURN 

IFS8= 190 THENDSSLEFTSCQS, 189) +ASt RETURN 
OS-LEFTSCOS, 58-12 *AS*RIGHTSCQS, 199- 58) : RETURN 

REM PRINTS DEVICE NAME 

ONRIGOTO8 792,879 4,879 6,8 798 8800 8802, 884s 8806 

G2$="WARP ENGINES": RETURN 

G2S="SHORT RANGE SENSORS": RETURN 

G2$="LONG RANGE SENSORS": RETURN 

G25-"PHASER CONTROL": RETURN 

G25-"PHOTON TUBES": RETURN 

G25- "DAMAGE CONTROL": RETURN 

G2$="SHIELD CONTROL": RETURN 

G25="LI BRARY -COMPUTER": RETURN 

REM STRING COMPARISON IN QUADRANT ARRAY 

ZASINTCZ 1405) sZOsINTC 22465) 1 82 CZO- DDE24CZ 12 Le Bat 157 350 

1 FMI D&C Qs, 88, 3)<>ASTHENRETURN 

23-1: RETURN 

REM QUADRANT NAME IN G2S FROM 24,25 (sQl»02) 

REM CALL WITH G5-! TO GET REGION NAME ONLY 

lFZS«-ATHENONZ 460709 240, 9850s 9060-96762 90BG+9 0992910009118 
80109120 
G2S=""ANTARES": GOTO9 210 

"RI GEL": GOTO9 218 
"PROCY ON": GOTO9 210 
"VEGA": GOTOO 212 

'CAN OPUS": GOTO9 218 
G25z "AL TAI R": GOTO9 218 
G2S="SAGI TTARI US": G0109 219 
G2S="POLL UX": GOTO9 210 
0М2400709130,9140>9150,9160 
GESz"SIRIUS":GOTOS 218 
G2s2"DENEB":GOTO9 216 
"CAPELLA":GOTO9 210 
'BETELGEUSE":GOTOS 210 
"AL DEBARAN"': GOT09 218 
G2S="REGUL US": GOTO9 210 
G2S=2"ARCTURUS": GOTO) 210 
62$="5Р1бА" 

18652 > 1} TH ENONZ 5GOTO9 239,9 240, 9 050,9 260,9 230.9 240, 9250.9 260 
RETURN 

G252G254" I": RETURN 

G2S=G2S+" LI": RETURN 

G2S=G2S+" III":RETURN 

G25-G2$*" LV": RETURN 


198,9 208 


161 


Sample Run - Instructions 


SOK OR E E E E E E E E EE EEE E E E E E E a 


* 
* * 
* * * SUPER STAR TREK * * * 
* * 
ж ж 
ж ж 


ЖЖ ЖЖЖ жж ЖКЖ ok Ka ж 


DO YOU NEED INSTRUCTIONS (Y/N)? Y 


TURN THE TTY ON-LINE AND HIT ANY KEY EXCEPT RETURN 
INSTRUCTIONS FOR 'SUPER STAR TREK’ 


le WHEN YOU SEE \COMMAND ?\ PRINTED, ENTER ONE OF THE LEGAL 
COUMANDS (NAVs SRS: LRS, PHA, ТОГ» SHE, БАМ» СОМ, OR ХХХ). 

2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHORT 
LIST OF THE LEGAL COMMANDS PRINTED OUT. 

3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, 
"МАУ" COMMAND COMES BACK WITH 'COURSE (1-9) ?'.) 
TYPE IN ILLEGAL DATA (LIKE NEGATIVE NUMBERS)» 
WILL BE ABORTED 


THE 
IF YOU 
THAT COMMAND 


THE GALAXY IS DIVIDED INTO AN B X 8 QUADRANT GRID; 
AND EACH QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GPID- 


YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE 
GALAXY TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP 
NENTERPRISE\3 YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF 
KLINGON WARWHIPS WHICH ARE MENACING THE UNITED FEDERATION OF 
PLANETS. 


YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN 
OF THE STARSHIP ENTERPRISE: 


NNAV\ COMMAND = WARP ENGINE CONTROL -- 


COURSE 15 IN A CIRCULAR NUMERICAL 4 3 2 
VECTOR ARRANGEMENT AS SHOWN . . . 
INTEGER AND REAL VALUES HAY BE ... 
USED. (THUS COURSE 1.5 IS HALF- 5 ------ 1 
WAY BETWEEN 1 AND 2 ... 
VALUES MAY APPROACH 9.9, WHICH 6 7 8 
ITSELF IS EQUIVALENT TO 1.0 

COURSE 


ONE WARP FACTOR IS THE SIZE OF 

ONE QUADTANT. THEREFORE TO GET 
FROM QUADRANT 6»5 TO 5,5, YOU WOULD 
USE COURSE 3» WARP FACTOR 1. 


NSRS\ COMMAND = SHORT RANGE SENSOR SCAN 
SHOWS YOU A SCAN OF YOU PRESENT QUADRANT. 


SYMBOLOGY ON YOUR SENSOR SCREEN IS AS FOLLOWS: 


FEDERATION STARBASE (CREFUEL/REPAIP/RE-ARM HERE!) 
STAR 


<*> = YOUR STARSHIP'S POSITION 
*K* = KLINGON BATTLE CRUISER 
>1< = 


* 


A CONDENSED ‘STATUS REPORT' WILL ALSO BE PRESENTED. 

NLESN COHHAND = LONG RANGE SENSOR SCAN 
SHOWS CONDITIONS IN SPACE FOR ONE QUADRANT ON EACH SIDE 
OF THE ENTERPRISE (WHICH IS IN THE MIDDLE OF THE SCAD 
THE SCAN IS CODED IN THE FORM \###\› UHERE TH UNITS DIGIT 
15 THE NUMBER OF STARS, THE TENS DIGIT IS THE NUMBER OF 
5ТАПВА5Е5, AND THE HUNDIESDS DIGIT IS THE NUMBER OF 
KLINGONS. 
EXAMPLE ~ 207 = 2 KLINGONSs NO STARBASESs & 7 STARS. 

NRHAN COMMAND = PHASEP CONTROL. 
ALLOWS YOU TO DESTROY THE KLINGON BATTLE CRULSERS BY 
ZAPPING THEM WITH SUITABLY LARGE UNITS OF ENERGY TO 
DEPLETE THEIR SHIELD POWER. (ПЕЧВЕН» KLINGONS HAVE 
РНАЅЕП5 TOO!) 


NTOTN COMMAND = PHOTON TORPEDO CONTROL . 
TORPEDO COURSE IS THE SAME AS USED IN VARP ENGINE CONTROL 
ГЕ YOU HIT THE KLINGON VESSEL» HE IS DESTROYED AND 
CANNOT FIRE BACK AT YOU. IF YOU MISS» YOU ARE SUBJECT TO 
HIS PHASER FIRE. IN EITHER CASE, YOU ARE ALSO SUBJECT TO 
THE PHASER FIRE OF ALL OTHER KLINGONS IN THE QUADPANT. 


THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN OPTION TO 
COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2) 


\SHEN COMMAND = SHIELD CONTROL 
DEFINES THE NUMBER OF ENERGY UNITS TO BE ASSIGNED TO THE 
SHIELDS. ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY. NOTE 
THAT THE STATUS DISPLAY TOTAL ENERGY INCLUDES SHIELD ENERGY 


NDAMN COMMAND = DAMMAGE CONTROL REPORT 
GIVES THE STATE OF REPAIR OF ALL DEVICES. 
"STATE OF REPAIR’ 
DAMAGED. 


WHERE A NEGATI VE 
SHOWS THAT THE DEVICE 15 TEMPORARILY 


\COMN COMMAND = LI BRARY-COMPUTER 
THE LIBRARY-COMPUTER CONTAINS SIX OPTIONS: 
OPTION @ = CUMULATIVE GALACTIC RECORD 
THIS OPTION SHOWES COMPUTER MEMORY OF THE RESULTS OF ALL 
PREVIOUS SHORT AND LONG RANGE SENSOR SCANS 
OPTION 1 = STATUS REPORT 
THIS OPTION SHOWS THE NUMBER OF KLINGONS, 
AND STARBASES REMAINING IN THE GAME. 
OPTION 2 - PHOTON TORPEDO DATA 
WHICH GIVES DIRECTIONS AND DISTANCE FROM THE ENTERPRISE 
TO ALL KLINGONS IN YOUR QUADRANT 
OPTION 3 = STARBASE HAV DATA 
THIS OPTION GIVES DIRECTION AND DISTANCE TO ANY 
STARBASE WITHIN YOUR QUADRANT 
OPTION 4 = DIRECTION/DISTANCE CALCULATOR 
THIS OPTION ALLOWS YOU TO ENTER COORDINATES FOR 
DI RECTI ONZDI STANCE CALCULATIONS 
OPTION 5 = CALACTIC /REGION NAME/ МАР 
THIS OPTION PRINTS THE NAMES OF THE SIXTEEN MAJOR 
GALACTIC REGIONS PREFERRED TO IN THE GAME. 


STARDATES, 


Sample Run - Game 


THE USS ENTERPRISE --- NCC-1701 


YOUR ORDERS ARE AS FOLLOWS: 
DESTROY THE B KLINGON WARSHIPS WHICH HAVE INVADED 
THE GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS 
ON STARDATE 3625 THIS GIVES YOU 25 DAYS. THERE ARE 
3 STARBASES IN THE GALAXY FOR RESUPPLYING YOUR SHIP 


HIT ANY KEY EXCEPT RETURN WHEN READY TO ACCEPT COMMAND 


YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED 
IN THE GALACTIC QUADRANT» 'BETELGEUSE I'. 


ж STARDATE 3008 
CONDI TI ON GREEN 
* QUADRANT 4» 5 
SECTOR 65» 2 
PHOTON TORPEDOES 18 
<ж> ж TOTAL ENERGY 3600 
SHIELDS ü 


KLINGONS REMAINING 8 


COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 4 2 5 


COMMAND? NAVeececSHE 
ENERGY AVAILABLE = 3000 NUMBER OF UNITS TO SHIELDS? 2002 
DEFLECTON CONTROL ROO’ REPORT: 
‘SHIELDS NOW AT 2009 UNITS PER YOUN COMMAND.' 
COMMAND? NAV 
COURSE (0-92? 1.16667 
ЧАВР FACTOR (0-8)? 1 


NOV ENTERING BETELGEUSE II QUADRANT . + > 


COMBAT AREA CONDITION RED 


* ж STARDATE 3861 
ж CONDI TI 09 *REDE 
* ж QUADRANWT а, 6 
ex» * SECTOR 4.2 
+ PHOTON TORPEDOES 10 
ж TOTAL ENERGY 2982 
SHIELDS 2000 
ж KLINGONS FEHAINING 8 
COMMAND? СОП 
COMPUTER ACTIVE AND AVALTING COMMAND? 2 
FROM ENTERPRISE TO KLINGON BATTLE CRUSER 
DIRECTION = 8.75 
DISTANCE = 4.12311 
COMMAND? TOR 
PHOTON TORPEDO COURSE (1-922 8.75 
TORPEDO TRACK: 
45.3 
5, 4 
5» 5 
556 
* KLINGON DESTROYED ж 
COMMAND? LPS 
1000 RANGE SCAN FOR QUADRANT 4 > 6 
COMMAND? NAV 
COURSE (0-92? 5 
FACTOR (6-8)? 4 
NOW ENTERING VEGA II CUADRANT + + + 
STARDATE 3222 
ж CONDI TI 04 GREEN 
QUADRANT 45.2 
<*> * SECTOR а, È 
ш PHOTON TORPEDOES 9 
* TOTAL ENERGY 29 38 
SHIELDS 2505 


KLIHGONS DhEHAINIHG 7 


COMMAND? LIS 
LONG RANGE SCAN FOR QUADRANT 4 + 2 


COMMAND? NAV 
COURSE (97-92? 5 
ЧАВР FACTOR (6-8)? I 


NOW ENTERING VEGA I QUADRANT e e < 


COMBAT AREA CONDITION RED 


* * STARDATE 3863 

CONDI Ti ON * REDE 

QUADRANT äs 1 

cx» SECTOR 4s 2 
++ PHOTON TORPEDOES 9 

TOTAL ENERGY 2926 

SHIELDS 2900 


KLINGONS REHAINING 7 

COMMAND? PHA 
PHASERS LOCKED ON TARGET) ENERGY AVAILABLE = 928 UNITS 
NUMBER OF UNITS TO FIRE? 186 
281 UNIT HIT ON KLINGON AT SECTOR 5,1 

CSENSONS SHOW 28.4468 UNITS REMAINING) 
4i UNIT HIT ON ENTERPRISE FROM SECTOR 5 >) 1 

<SHIELDS DOWN TO 1959 UNITS» 

COMMAND? PHA 
PHASERS LOCKED ON TARGETS ENERGY AVAILABLE = 820 UNITS 
NUMBER OF UNITS TO FIRE? 14 
28 UNIT HIT ON KLINGON AT SECTOR 5,1 
жеж KLINGON DESTROYED жжж 
COUMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 4» 1 


COUMANE? NAY 
COURSE (0-90? 2 
WARP FACTOR (8782)? 1.414 


NOW ENTERING PROCYON II QUADRANT ¿ +< + 


COHBAT AREA 
STARDATE 3684 
CONDI TI OH *REDK 
QUADRAN T з, 2 
++ ж SECTOR 155 
ж PHOTON TORPEDOES 9 
TOTAL ENERGY 2744 
SHIELDS 1959 


KLINGONS REMAINING 6 


COMMAND? СОП 
COMPUTER ACTIVE AND AUAITING COUNAND? 2 


Froir ENTERPRISE TO KLINGON BATTL 
DIRECTION 5.78 

DISTANCE = 5 

COMMAND? LAS 

LONG RANGE SCAN FOR QUADDANT 3 , 2 


CRUSER 


IHAND? ТОП 
PHOTON TORPEDO COURSE (1-90? 5.75 
TOPPEDO TRACK: 


2, 
3 
з, 
а 1 
ВОТ Ер жеш 


KLINGON DEST 
COMMAND? CO 
COMPUTER ACTIVE AND AJAITING СОПНАМЮ? 9 


COMPUTER RECORD OF GALAXY FOR CUADRANT 3 , 2 


COMMAND? UAV 
COURSE (9-9)? 7 
MARP FACTOR (6-8)? 4 


NOW ЕМТЕГІНС SAGITTANIUS II QUADRANT + + + 


STANDATE 3265 

ж CONDI TI ON GTEEN 

* CUADRAN T тәу 2 

* SECTOR be 5 
PHOTON TORPEDOES & 

TOTAL ENERGY 279€ 

SH ELDS 1959 


KLINGONS REMAINING 5 


COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 7 + 2 


COMMAND? NAV 
COURSE (8-92? 1 
WARP FACTOR (8-857 3 


NOW ENTERING ARCTURUS I QUADRANT + « + 


ж <ж> STANDATE 3806 
* CONDI TION GREEN 
* QUADRANT 79 5 
ж SECTOR 1» 5 
* * PHOTON TORPEDOES 8 
* TOTAL ENERGY 2666 


SHIELDS 1959 
KLINGONS REMAINING 5 


COMMAND? NAV 
COURSE (8-9)? 1 
WARP FACTOR (2-8)? 2 


NOW ENTERING ARCTURUS III QUADRANT + + < 


<*> STARDATE 3907 
ж CONDI TION GREEN 
ж ж QUADRANT т, 7 
* SECTOR 155 
PHOTON TORPEDOES 8 
TOTAL ENERGY 2646 
SHIELDS 1989 
* KLINGONS REMAINING 5 


COMMAND? LRS 
LONG RANGE SCAN FOR QUADRANT 7 » 7 


COMMAND? COM 
COMPUTER ACTIVE AND AWAITING COMMAND? 2 


COMPUTER RECOPDD Or GALAXY FOR QUADRANT 7 >» 7 


COMMAND? COH 
COMPUTER ACTIVE AND AWAITING COMMAND? 1 


STATUS REPORT: 
MLINGONS LEFT: 5 
MISSION MUST BE COMPLETED IN 18 STARDATES 
THE FEDERATION 15 MAINTAINING 3 STANBASES IN THE GALAXY 


DEVICE 

WARP ENGINES 

SHORT RANGE SENSORS 
LONG RANGE SENSORS 
PHASER CONTROL 
PHOTON TUBES 
DAMAGE CONTROL 
SHIELD CONTROL 
LIBRARY-COHPUTER 


STATE OF REPAIR 


e e s o a a o о 


COMMAND? COM 
COMPUTER ACTIVE AND AUAITING COMMAND? 4 


DI RECTI ON/DI STANCE CALCULATOR: 
YOU ARE AT QUADRANT 7 » 7 SECTOR 1» 5 
FLEASE ENTER 
INITIAL COORDINATES (XsY)? 7,7 
FINAL COORDINATES (X2YO? 458 
DIRECTION = 2.66667 
DISTANCE = 3.16288 
COMMAND? NAV 
COURSE (8-9)? 2.66667 
WARP FACTOR (9-8)? 3.16228 


Later іп the run.... 


NOW ENTERING SIRIUS I QUADRANT , + + 


COMBAT AREA CONDI T10N RED 


STARDATE 3612.6 
* CONDI Ti ON *RED* 
QUADRANT 155 
* SECTOR 5, 2 
€x» ++ * PHOTON TORPEDOES 5 
TOTAL ENERGY 1741 
ж SHIELDS 891 
ж KLINGONS REMAINING 2 


COMMAND? TOR 
PHOTON TORPEDO COURSE (1-920? 1 
TODPEDO TRACI: 
5.3 
sack KLINGON DESTROYED жк 
COMMAND? NAV 
COURSE (3-9)? 5 
WARP FACTOR (9-82? 1 
DAMAGE CONTROL REPORT:  LIBRARY-COMPUTER REPAIR COMPLETED. 


NOW ENTERING ANTARES Iw QUADUAIT < + « 


COMBAT AREA 


CONDITION RED 


* STARDATE 3913.6 
ж ie CONDI TI ON * RED* 
* QUADRANT уа 
ж SECTOR 5.2 
<ж> ж PHOTON TORPEDOES а 
TOTAL ENERGY 1721 
SHIELDS 891 
* * ple RLINGONS RENAINING 1 


COMMAND? COH 
COMPUTER ACTIVE AND AYAITING COMHAND? 3 


FROM ENTERPRISE TO STANBASE: 
DIRECTION = 8.4 
DISTANCE = 5.83995 
COHMAND? NAV 
COURSE (6-9)? Gea 
ЧАВР FACTOR (8-8)? «5836095 
154 UNIT HIT ON ENTERPRISE FROM SECTOR 3, 3 
<SHIELDS DOWN TO 737 UNITS> 
DAMAGE CONTROL REPONTS "LONG RANGE SENSORS DAMAGED EY THE HIT! 
DAMAGE CONTROL REPORT: LONG RANGE SENSORS REPAIR COMPLETED. 
MARP ENGINES SHUT DOWN AT SECTOR 7 » 6 DUE TO BAD NAVAGATI ON 
SHIELDS DROPPED FOR DOCKING PURPOSES 


ж STARDATE 3€14.t1 
* GONDI TI ON DOCKED 
+ * QUADRANT у 4 
* SECTOR 7+ 6 
ж PHOTON TORPEDOES 16 
TOTAL ENERGY 3982 
<ж> SHIELDS e 


KLIQGONS REMAINING 1 


COMMAND? DAH 


DEVICE STATE OF REPAIR 
WATP ENGINES © 

SHOnT RAL QE SENSORS 9 

LONG RANGE SENSOHS +26 
PHASER CONTROL 8 

PHOTON TUBES 9 

PAHAGE CONTROL © 

SHEPELD CONTROL ‚48 
LIDRAZY-COLPUTER .18 


COMMAND? CON 
COMPUTER ACTIVE AND AWAITING COMMAND? 5 


THE GALAX 
1 2 3 4 5 


COMMAND? PHA 

FHASERS LOCKED ON TARGETS ENERGY AVAILABLE = 3090 UNITS 
NUMBER OF UNITS TO FIRE? 2909 

1415 UNIT HIT ON KLINGON AT SECTOR 3 4 3 

жеж KLINGON DESTROYED жжж 

CONGRULATI ON, CAPTAIN! THE LAST KLINGON BATTLE CRUISER 
MENACING THE FEDERATION HAS.BEEN DESTROYED. 


YOUR EFFICIENCY RATING IS 321-911 


THE FEDERATION IS IN NEED OF A NEW STARSHIP COHHANDER 
FOR A SIMILAR MISSION ~- IF THERE IS A VOLUNTEER. 
LET НІП STEP FORWARD AND ENTER 'AYE'? NAY 
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Synonym 


A synonym of a word is another word Thy ДЗ А SYNONYM ОР РІТ? CAVE 
(in the English language) which has the WHAT IS À SYNONYM OF PIT? CAVERN 
same, or very nearly the same, mean- TRY AGAIN. 
ing. This program tests your WHAT IS A SYNONYM OF PIT? HOLE 
knowledge of synonyms of a few RIGHT 
common words. 

The computer chooses a word and WHAT IS A SYNONYM OF HOUSE? DWELLING 
asks you for a synonym. The computer 600! 
then tells you whether you're right or 
wrong. If you can't think of a synonym, UHAT IS 4 SYNONYM DF PUSHT SHOVE 
type "HELP" which causes a synonym 6005! 


to be printed. 
You may put in words of your choice 
in the data statements (510-600). The CHECK 
number following DATA in Statement 
500 is the total number of data 


WHAT IS A SYNONYM OF STOP? HALT 


statements. In each data statement, the crec T IS A SYNONYM OF PAIN? HURT 
first number is the number of words in 
that statement. SYNONYM DRILL COMPLETED. 
Can you think of a way to make this 
i kin CAI 2 PRINT TAB(33);"SYNONYH" 
into a puis general " d of 4 PRINT TAB(IS); "CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
program тог any subject: . 4 PRINT: PRINT: PRINT 
Walt Koetke of Lexington High 10 DIM R$C5) US CIO ,LC3O), RCIO) 
School, Massachusetts created this 20 RM) RISNIU: R$(2)z"CORRECT": R$(3)="FINE": R$(6)2"G00b! " 
program. 20 too 


90 PRINT "A SYNONYM OF A WORD HEANS ANOTHER UCRD IN TRE ENGLISH" 

100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SANE"; 

110 PRINT " MEANING.” 

130 PRINT "I CHOOSE A WORD -~ YOU TYPE А SYNONYH." 

140 PRINT "IF YOU САН”Т THINK OF A SYNONYM, TYPE THE UORD "HELP^" 
145 PRINT "AND I WELL TELL YOU A SYNONYH.": PRINT 

150 RESTORE: С=С+1: READ N 

160 IF CON THEN 420 

170 NISINT(RNDCD ®Н+1) 


SYNONYM 174 IF R(N1)=1 THEN 170 
CREATIVE COMPUTING  HORRISTOUN, NEU JERSEY 176 RU 
180 FOR I=1 TO М 
A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH 190 READ N2 
LANGUAGE WHICH HAS THE SANE OR VERY NEARLY THE SAME MEANING. 200 READ ust N2 
1 CHOOSE A WORD -- YOU TYPE A SYNONYM. 210 ene 0 J 
IF YOU CAN’T THINK OF A SYNONYM, TYPE THE WORD “HELP” 320 MET 1 


AND I WILL TELL YOU A SYNONTH, 232 FOR Ј=1 TO N2: L(J)=J: NEXT J 


235 1(0)-Ң2: 621: PRINT 
237 L(B)=L(L(0)): L(0)=N2-1: PRINT 


WHAT IS A SYNONYM OF RED? HELP 240 PRINT " WHAT IS à SYNONYM OF ";US$(G);: INPUT A$ 
жеж A SYNONYM ОҒ RED IS RUBY. 250 IF AS-"HELP" THEN 340 
260 FOR K=} TO N2 
WHAT IS A SYNONYM OF RED? SCARLET 270 IF G=K THEN 290 
RIGHT 280 IF AS=W$(K) THEN 520 
290 NEXT K 
300 PRINT " TRY AGAIN."* GOTO 240 
WHAT IS A SYNONYM OF MODEL? FORM 320 PRINT R$(RND(1)*5+1): GOTO 150 
TRY AGAIN. 340 GIzINT(RNDCLD LC) 1) 
UHAT IS A SYNONYM OF MODEL? HELP 360 PRINT "**e* A SYNONYM OF ";U$(G';" IS "5US (106812) 5" "s. PRINT 
see A SYNONYM OF MODEL IS PATTERN. 370 L(61)=L(L(0)): L(0)=L(0)-f: 6010 240 
420 PRINT: PRINT "SYNONYM DRILL COMPLETLu.": GOTO 999 
WHAT IS A SYNONYM OF MODEL? PROTOTYPE 500 DATA 10 | 
6002! 510 DATA 53,"FIRST","START", "BEGINNING", "ONSET", "INITIAL" 


520 DATA 5,"SINILAR", "ALIKE", "SAHE", "LIKE", "RESEMBLING" 
530 DATA S,"HODEL" , "PATTERN", "PROTOTYPE", "STANDARD" , "CRITERION" 
WHAT IS A SYNONYM OF SHALL? LITTLE 540 DATA 5, "SHALL", “INSIGNIFICANT”, "LITTLE" , "TINY", "MINUTE" 
6000! 550 DATA 6, "ТОР", "НАЕТ", "STAY", "ARREST", "CHECK" ,"STANDSTILL" 
560 DATA 6,"HOUSE", "DWELLING", "RESIDENCE", "DOMICILE", "LODGING" 
585 DATA "HABITATION" 
WHAT IS A SYNONYM OF SIMILAR? LIKE 570 DATA 7, "РІТ", "HOLE", "HOLLOW", "WELL", "GULF" , "CHASH" , "ABYSS" 
CORRECT 580 DATA 7,"PUSH", "SHOVE", "THRUST", "PROD", “POKE","BUTT", "PRESS" 
590 DATA 6,"RED", "ROUGE", "SCARLET", "CRIMSON", "FLAME" , "RUBY" 
600 DATA 7,"PAIN","SUFFERING", "HURT", "MISERY", "DISTRESS", "ACHE" 
WHAT IS А SYNONYM OF FIRST? START 605 DATA "DISCONFORT" 
CORRECT 999 END 
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Target 


in this program, you are firing a 
weapon from a spaceship in 3- 
dimensional space. Your ship, the 
Starship Enterprise, is located at the 
origin (0,0,0) of a set of x,y,z coor- 
dinates. You will be told the ap- 
proximate location of the target in 3- 
dimensional rectangular coordinates, 
the approximate angular deviation 
from the x and z axes in both radians 
and degrees, and the approximate 
distance to the target. 

Given this information, you then 
proceed to shoot at the target. A shot 
within 20 kilometers of the target 
destroys it. After each shot, you are 
given information as to the position of 
ihe explosion of your shot and a 
somewhat improved estimate of the 
location of the target. Fortunately, this 
is just practice and the target doesn't 
shoot back. After you have attained 
proficiency, you ought to be able to 
destroy a target in 3 or 4 shots. 
However, attaining proficiency might 
take a while! 

The author is H. David Crockett of 
Fort Worth, Texas. 


TARGET 
CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE 

AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU 

ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD 

THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION 

OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES, 
THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z 

AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET. 

YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IF IS 
DESTROYED! 


GOOD LUCK!! 


RADIANS FROM X AXIS = 4.46501 FROM 2 AXIS = 2.65935 

TARGET SIGHTED: APPROX COORDINATES X=-7551.63 Ү=-29901.3 
ESTIMATED DISTANCE- 66490 

INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 230,110,66000 


2=-58915.4 


RADIANS FROM X AXIS = 4.01424 FROM 2 AXIS = 1.91985 
SHOT BEHIND TARGET 32314.7 KILOMETERS. 
SHOT TO RIGHT OF TARGET 17608 KILGNETERS, 
SHOT ABOVE TARGET 36342.5 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-39864.4 
DISTANCE FROM TARGET = 51721 


Үз-42509.4 1з-22572.9 


ESTIMATED DISTANCE= 66498 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 250,170, 66000 


RADIANS FROM X AXIS = 4.36331 FROM Z AXIS = 2.96705 
SHOT IN FRONT OF TARGET 3631.37 KILOMETERS, 
SHOT TO LEFT OF TARGET 19131.1 KILOMETERS. 
SHOT BELOW TARGET 6081.76 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=-3920.26 
DISTANCE FROM TARGET = 20400.3 


Ү=-10770.3 Z=-64997.2 


ESTIMATED DISTANCE- 646499 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 240,155,64499 


RADIANS FROM X AXIS = 4.537804 FROM Z AXIS = 2.70525 
SHOT IN FRONT OF TARGET 2670.88 KILOMETERS. 
SHOT TO LEFT OF TARGET 2224.05 KILOMETERS. 
SHOT BELOW TARGET 1352.85 KILOMETERS. 
APPROX POSITION OF EXPLOSION: X=~4880.76 
DISTANCE FROM TARGET = 3729.64 


Үз-27872.3 12-60268.3 


ESTIMATED DISTANCE- 66499.2 


INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 255,150,40499. 
2 


RADIANS FROM X AXIS = 4.45057 FROM Z AXIS = 2.61798 

SHOT BEHIND TARGET 1054.7 KILOMETERS. 

SHOT TO RIGHT OF TARGET 2215.73 KILOHETERS. 

SHOT ABOVE TARGET 1325.75 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-8606.33 
DISTANCE FROM TARGET = 2789.17 


Y2732117.1 12-57589.7 


+ 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 254,145,66499. 
2 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2,53072 

SHOT BEHIND TARGET 1676.61 KILOMETERS. 

SHOT TO RIGHT OF TARGET 7108.41 KILOÜHETERS. 

SHOT ABOVE TARGET 4442.84 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-9228.24 
DISTANCE FROM TARGET = 8548.64 


Y=~37009.7 1--54422.6 


ESTIHATED DISTANCE- 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 254,147,46499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.54562 

SHOT BEHIND TARGET 1211.02 KILOMETERS. 

SHOT TO RIGHT OF TARGET 5241.18 KILOMETERS. 

SHOT ABOVE TARGET 3145.04 KILOMETERS, 

APPROX POSITION OF EXPLOSION: Х--8742.45 
DISTANCE FROM TARGET = 6231.19 


Үз-35142.5 Z=-55770.4 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE? 256,148,44499 


RADIANS FROH X AXIS = 4.46803 FROM Z AXIS = 2.58308 

SHOT BEHIND TARGET 974.203 KILOMETERS. 

SHOT TO RIGHT OF TARGET 4291.42 KILOMETERS. 

SHOT ABOVE TARGET 2521.43 KILOMETERS. 

APPROX POSITION OF EXPLOSION: Х--8525.84 
DISTANCE FROM TARGET = 5071.78 


Үл-34192.8 1-356394 
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ESTIMATED DISTANCE- 464499,2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM 7, DISTANCE? 254,154,46499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.6878 

SHOT IN FRONT OF TARGET 498.672 KILOMETERS. 

SHOT TO LEFT OF TARGET 1615.52 KILOMETERS. 

SHOT BELOW TARGET 653.184 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-7052.96 Үс-28285.8 12-59768.6 
DISTANCE FROM TARGET = 1893.81 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM 2, DISTANCE? 256,153,44499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.67034 

SHOT IN FRONT OF TARGET 247.38 KILOMETERS. 

SHOT TO LEFT OF TARGET 607.723 KILOMETERS. 

SHOT BELOW TARGET 335.316 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=-7304.25 Y2-29293.6 Z=-59250.7 
DISTANCE FROM TARGET = 736.859 


ESTIMATED DISTANCE= 66499.2 
INPUT ANGLE DEVIATION FROM X, DEVIATION FROM 2, DISTANCE? 256,152,66499 


RADIANS FROM X AXIS = 4.46803 FROM Z AXIS = 2.6528? 

SHOT BEHIND TARGET 1.68652 KILOHETERS. 

SHOT TO RIGHT OF TARGET 391.156 KILOMETERS. 

SHOT ABOVE TARGET 200.602 KILOMETERS. 

APPROX POSITION OF EXPLOSION: X=~-7553.32 Үс-30292.5 15-58714:8 
DISTANCE FROM TARGET = 439,599 


10 PRINT TAB(33); "TARGET" 

20 PRINT ТАВ(15) ; "CREATIVE COMPUTING NORRISTOWN, NEU JERSEY" 

30 PRINT: PRINT: PRINT 

100 Rz1: В1-57.296: Р-3.141592 

110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STARSHIP ENTERPRISE" 

120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU" 

130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD” 

140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION" 

150 PRINT "OF THE TARGET IN THREE DIMENSIONAL RECTANGULAR COORDINATES," 
160 PRINT "THE APPROXIHATE NUMBER OF DEGREES FROM THE X AND Z" 

170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET." 

180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS" 
190 PRINT "DESTROYED!": PRINT: PRINT "GOOD LUCK!!": PRINT: PRINT 

220 A-RND(T)*2*P: B=RND(1)*2*P;: O=INT(A*R1): U-INT(BSRI) 

260 PRINT "RADIANS FROM X AXIS =";А;" FROM Z AXIS =";B 

280 P12100000*RNDCT) *RNDCT): X=SIN(B)*COS(A)*#P1: Y=SIN(B)*SIN(A)*P1 

290 Z-CUS(B)sPI 

340 PRINT “TARGET SIGHTED: APPROX COORDINATES Xz";X;" үзчү 74497 
345 R=R+1: IF ROS THEN 390 

350 ON R GOTO 355,350,365,370,375 

355 P3=INT(P1*.05)*20: 0010 390 

380 P3SINT(PTS. 12810: GOTO 390 

365 P3-INT(PIS.5)*2: GOTO 390 

370 P3:INT(PT): GOTO 390 

373 Pi-Pl 

390 PRINT " ESTIMATED DISTANCE="5P3 

400 PRINT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE"; 
405 INPUT A1,B1,P2 

410 PRINT: IF P2<20 THEN PRINT "YOU BLEW YOURSELF UP!!": GOTO 580 
420 AT=AT/Ris BIzBI/Rts PRINT "RADIANS FROH X AXIS =”;А1; 

425 PRINT "FROM Z AXIS =";B1 

480 X1-P2*8IN(B1)*CUS(A1): Y1=P2*SIN(B1)*SIN(A1): Z1=P2*C0S(B1) 
510 DzCOU 70728 1 -Y)72*(21722^2)^ (172) 

520 IF D>20 THEN 670 < 
530 PRINT: PRINT " + + * HIT + + e TARGET IS NON-FUNCTIONAL": PRINT 
550 PRINT "DISTANCE OF EXPLOSION FROM TARGET UAS";D;"KILUMETERS" 

570 PRINT: PRINT "MISSION ACCOMPLISHED IN ";Rj;" SHOTS." 

580 К=0: FOR 1=1 TO 5: PRINT: NEXT I: PRINT "NEXT TARGET...": PRINT 
390 GOTO 220 

670 X2zXi-X: Y?sYi1-Y: Z2221-2: IF Х2<0 THEN 730 

710 PRINT “SHOT IN FRONT OF TARGET";X2;"KILOMETERS.": GOTO 740 

730 PRINT "SHOT BEHIND TARGET";-X2; "KILOMETERS." 

740 IF Ү2<0 THEN 770 

750 PRINT "SHOT TO LEFT OF TARGET";Y2;"KILOMETERS.": GOTO 780 

770 PRINT "SHOT TO RIGHT OF TARGET";-Y2; "KILOMETERS." 

780 IF 7250 THEN 810 

790 PRINT "SHOT ABOVE TARGET";Z22; "KILOMETERS.": GOTO 820 

810 PRINT “SHOT BELOW TARGET";-22; "KILOMETERS." 

820 PRINT "APPROX POSITION OF EXPLOSION: Xs";Xl;"  Yz";Y1;" тегі 
830 PRINT " DISTANCE FROM TARGET =";D: PRINT: PRINT: PRINT: 6010345 
999 END 


a 


%--...... 
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3-D Plot 


3-D PLOT will plotthe family of curves 
of any function. The function Z is 
plotted as "rising" out of the x-y plane 
with x and y inside a circle of radius 30. 
The resultant plot looks almost 3- 
dimensional. 

You set the function you want plotted 
in line 5. As with any mathematical plot, 
some functions come out “prettier” 
than others. Here are some that work 
nicely: 

5 DEF FNA (2) = 30*EXP (-Z*Z/100) 
5 DEF FNA (2) = SQR (900.01-Z"Z) *.9-2 
5 DEF FNA (2) = 30*(COS(Z/16) 2 
5 DEF FNA (2) = 30-30*SIN (2/18) 


5 DEF FNA (2) = 30*EXP (-COS (Z/16) ) -30 
(Bessel function—Summerfeld's Integral) 


5 DEF FNA (Z) = 30*SIN (Z/10) 
The author of this amazingly clever 
program is Mark Bramhall of DEC. 


3D PLOT 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


$ 
* $ x 
з + ` ж * 
* © з 90% о з 
* > 3 $  % + 
* + $ $ x a s 
* % ú 9»? $$ ew бо з g 
* $ $ $ $ э за * 
4% % $ 9$ $ $ g $ 
* © $ $ з oc аз ой . з 
*$ s % 90% oe жй £ + 
?$ 9 ú $ ч $ ж # 3» cG 
$ * * $ * eee x c3 
» * * » * +b + od 
%о% g $ * $5 з 
* * * * * * 
LÀ $ + * * * 
+ g * a * » 
0% * * * 
. ж * * " 
+ $ s * * + 
* s * ж * 
* s $ * + 
* * * $ * * 
* * * % ж * 
* * * ж * * 
к * + * * ++ + 
* * * * * ез o ck 
t + ж * * каз Ф ж 
* * * » * + 34 4 4 4 
* + s + + жа Roo s 
+ + + y + з 03k жо) 
* è * * з э ck е % 
* + * . + * * 61 * 
и + + + оя *oc $ 
» *» è + > * + 
* ж 4 з з + з 
Д ` * % 4 ¢ + 
* oc з + * 
* . 4 
* 


“ж * 
* + ж * 
ts ж * * 
ж к * * * 
“ж * * * 
ж“ 4 * * * 
жз ж * * * 
ee ot б * * * 
tè жж * * * * 
ко «аз à * * * 
* b kb ж * * * 
ke ж kr € a * 
жж ж tee * * 
$ 8$ à ee ok * * 
* % * te А è 
* * 800%) 6 А 
2 & * е * в 
# * ae # è 
“£ $ * $ è 
ж. * * “ * à 
жж n * £ в 
А £ kt é è 
% & k 4 * * 
$ % a *% $ * 
ж “ * жш # * 
в а ж ТЕН * * 
t * t tts g * * 
te ж tk x а А в 
ee б eg в б А * 
ко € оф b * a * 
ee ж & * * $ * 
ke é a $ * $ 
* % ж * £ * 
«ә a % k * 
«ж * * * 
РЕ * 3 А 
ка & * * 
* 8 ж n 
tg è 


1 PRINT T4B(32);"3D PLOT” 
2 PRINT TAB(15);"CREATIVE COMPUTING HORRISTOUN, HEU JERSEY" 
3 PRINT:PRINT:PRINT 

5 DEF ЕНЁ(1)=30%ЕХР(-7%7/100) 

100 PRINT 

110 FOR X=-30 TO 30 STEP 1.5 

120 Leo 

130 Y1=5wINT(SQR(900-X*X)/5) 

140 FOR ҮзҮ TO -Y1 STEP -5 

150 Z=INT(25+FNA(SOR(X¥X+Y8Y) )~. 787). 

160 IF Z<=L THEN 190 

170 Lez 

180 PRINT TAB(Z)3%e"; 

190 NEXT Y 

200 PRINT 

210 NEXT X 

300 END 
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3-D TIC-TAC-TOE is the game of tic- 
tac-toe in a 4x4x4 cube. You must get 4 
markers in a row or diagonal along any 
3-dimensional plane in order to win 

Each move is indicated by a 3-digit 
number (digits not seperated by commas), 
with each digit between 1 and 4 inclusive. 
The digits indicate the level, column, and 
row, respectively, of the move. You can win 
if you play correctly; although, it is consid- 
erably more difficult than standard, two- 
dimensional 3x3 tic-tac-toe. 

This version of 3-D TIC-TAC-TOE is 
from Dartmouth College. 


ТІС ТАС TOE 
CREATIVE COMPUTING  HORRISTOUN, NEM JERSEY 


DD YOU WANT INSTRUCTIONS? YES 


THE GAHE IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE. 

EACH MOVE IS INDICATED BY A 3 DIGIT NUMBER, WITH EACH 
DIGIT BETWEEN 1 AND 4 INCLUSIVE, THE DIGITS INDICATE THE 
LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED 
PLACE. 


TO PRINT THE PLAYING BOARD, TYPE O (ZERO) AS YOUR HOVE. 
THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI- 
CATED WITH A (Y), THE HACHINE^S MOVES WITH AN (M), AND 
UNUSED SQUARES WITH A ( ), 


TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR HOVE. 
DO YOU WANT TO MOVE FIRST? YES 


YOUR НОМЕ? 122 

MACHINE MOVES TO 111 

YOUR HOVE? 112 

MACHINE MOVES TO 411 

YOUR МОЧЕ? 412 

MACHIME MOVES TO 414 

YOUR HOVE? 212 

NICE TRY HACHINE HOVES TO 312 
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YOUR HOVE? O 
(H) (Y) C) C) 


YOUR HOVE? 442 

MACHINE NOVES TO 114 

YOUR HOVE? 214 

MACHINE MOVES TO 213 , AND WINS AS FOLLOWS 
411 312 213. 114 

DO YOU WANT TO TRY ANOTHER GAHE? NO 


LIST 
50 PRINT CHR$(26) :UIDTH 80 


100 


PRINT ТАВСЗЗ) ; "DUBIC":PRINT 
PRINT TAB(ISO;"CREATIUE COMPUTING MORRISTOWN, NEW JERSEY" 
PRINTIPRINT:PRINT 
PRINT "DO YOU HANT INSTRUCTIONS"; 
INPUT C$ 
IF LEFTS(CS, 1)5"N" THEN 315 
IF LEFTS(CS, 1)2"Y" THEN 265 
PRINT "INCORRECT ANSWER, PLEASE TYPE “YES” OR 7807; 
8010 220 
PRINT 
PRINT "THE GAME IS TIC-TAC-TOE IN A 4 X 4 X 4 CUBE." 
PRINT "EACH MOVE IS INDICATED BY À 3 DIGIT NUMBER, WITH EACH" 
PRINT "DIGIT BETWEEN 1 AND 4 INCLUSIVE. THE DIGITS INDICATE THE" 
PRINT "LEVEL, ROW, AND COLUMN, RESPECTIVELY, OF THE OCCUPIED" 
PRINT “PLACE. " 
PRINT 
PRINT "TO PRINT THE PLAYING BOARD, TYPE © (ZERO) AS YOUR MOVE.” 
PRINT "THE PROGRAM WILL PRINT THE BOARD WITH YOUR MOVES INDI-" 
PRINT “CATED WITH A (Y), THE MACHINES MOVES WITH AN (М), AND" 
PRINT “UNUSED SQUARES UITH A ( )," 
PRINT 
PRINT "TO STOP THE PROGRAM RUN, TYPE 1 AS YOUR MOVE." 
PRINT PRINT 
DIM X64) ,L(076),8076,49, CL ÉD 
FOR I = 1 TO 16 
READ Y(I) 
NEXT I 
FOR 1=1 TO 76 
FOR J= 1 T0 4 
READHCI,J) 
NEXT J 
NEXT 1 
FOR I = 1 TO 64 
LET X (I) =Q 
NEXT I 
LET 2=1 
PRINT "DO YOU WANT TO MOVE FIRST"; 
INPUT S$ 
IF LEFTS(S$,1)=°N" THEN 430 
IF LEFTS(9$,1)="Y" THEN 500 
PRINT “INCORRECT ANSWER. PLEASE TYPE “YES” OR "NO'.'; 
GOTO 450 
PRINT " * 
PRINT “YOUR MUVE”; 
INPUTJI 
IF J1=1 THEN 2770 
IF J1<>0THEN525 
GOSUB 2550 
8070500 
IFJ1 CH TTHEN2750 
IFJ1>444THEN2750 
60508 2500 
LETKT-INTCH /100) 
LET J2=(J1-K1#100) 
LET K2=INT(J2/10) 
LET K3= Ji - Kietag -K2e10 
LET MB=16*R1+4*R2+R3-20 
IF X(H)=0 THEN 420 
PRINT "THAT SQUARE IS USED, TRY AGAIN." 
8010 500 
LET ХОК) =1 
80808 1640 
del 
Ізі 
J=1 THEN 72 
IF J=2 THEN 790 
IF J=3 THEN 920 
Ізі IF 15526 THEN 660 
JeJtts IF J¢#3 THEN 650 
GOTO 1300 
IF LUI OM. THEN 690 
PRINT "YOU WIN AS FOLLOWS": 
FOR J=1 TD 4 
LET MzHUL, J) 
80808 1570 
NEXT J 
GOTO 1490 
IF 1(1)4215 THEN 690 
FOR J=} TQ 4 
LET H=H(1,J) 
IF X(M)<50 THEN 860 
LET ХН) 25 
PRINT "MACHINE MOVES TQ"; 
GOSUB 1570 
NEXT J 
PRINT ", AND WINS AS FOLLOWS" 
FOR J=} TO 4 
LET H=B(1,J) 
BOSUB 1570 
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910 NEXT J 
920 GOTO 1490 


930 


IF LCIMOS THEN 490 


940 PRINT "NICE TRY. MACHINE MOVES TO"; 


950 
760 
970 
780 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1300 
1510 
152 
1330 
1540 
1550 
1560 
1570 
1580 
1570 
1800 
1610 
1620 
1850 
1640 
1450 
1660 
1670 
1880 
1890 
1700 
1710 
1220 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 


FOR 451 TO 4 

LET Вей (1,4) 

IF X(H)<>0 THEN 1010 
LET ХОК) =9 

80808 1570 


80T0 500 

NEXT J 

8070 1300 

151 

LET LCDEX OL TD ХИСІ, 2) AX HCL, INIA, AD) 
LET L = LCI) 

IF L <2 THEN 1130 

IF L>=3 THEN 1130 

IF L2 THEN 2230 

FOR J = 1 ID 4 

IF X(B(I,J))š>0 THEN 1120 
LET X(M(1,J))=1/8 

NEXT J 

l=Itt: IF 1<=26 THEN 1040 
80808 1640 

Ізі 

IF 1(1)#1/2 THEN 2360 

IF LCD 2143/8. THEN 2360 
Ilii: IF 15526 THEN 1160 
8070 1830 

LET Z = 1 

IF X(Y(Z))=0 THEN 1250 
LET Z=Z+1 

IF Z<>17 THEN 1210 

8070 1720 

LET M=Y(Z) 

LET Х(М)=5 

PRINT "MACHINE MOVES TO"; 
80808 1520 

6010 500 

LET X=X 

Із 

LET Та СМТ, DOSX(OLIL 2) X OL 2X CRCL 42) 
LET L=L(D 

IF LOO THEN 1410 

IF L>=11 THEN 1410 

IF 1710 THEN 2230 

FOR J=1 TO 4 

ІР XCOLL,J)2 080. THEN 1400 


LET X(H(1,J))=1/8 

NEXT J 

Ізін: IF Іст24 THEN 1320 
GOSUB 1640 

I=1 


IF L(I)=,5 THEN 2340 

IF 101)=5+3/8 THEN 2360 
Ізін If 15578 THEN 1440 
GUSDB 2900 

GOTO 1030 

PRINT " " 


PRINT "DO YOU WANT [O TRY ANOTHER GAME"; 
INPUT X$ 

IF LEFTS(XS$, 1)z"Y" THEN 400 

IF LEFT£UGS 1) 2"N". THEN 1560 


PRINT "INCORRECT ANSWER. PLEASE TYPE “YES: OR "ums 


GOTO 1510 

RUN "МЕНШ" 

LET KI=INT((B-1)/16)+1 

LET J2zH-165(E1- 1) 

LET K2zINTCCI2-1)/4)91 

LET K3=M-(K1-1)+16-(K2-1)+4 
LET M=R1*100+K2*10+R3 

PRINT M; 

RETURN 

FOR S=1 TD 76 

LET JI = HG, 1) 

LET J2=H(5,2) 

LET J3=W(5,3) 

LET J4=B(S,4) 

LET LES) =X CST) 4X (G2) #X (GEEK CH) 
NEXT S 

RETURN 

FOR 1=1 TO 64 

IF X(1)<>0 THEN 1800 

LET X(1)25 

LET =I 

PRINT “MACHINE LIKES"; 
GOSUB 1570 

PRINT б“ 

GOTO 500 

NEXT I 

PRINT "THE GAME IS A DRAU." 


2320 GOTO 300 
1820 GOTO 1490 


2330 NEXT J 
1830 FOR K-1 Т0 18 2340 PRINT “MACHINE CONCEDES THIS GAME," 
1840 LET Р=0 2350 GUTO 1490 
1850 FOR [=44k-3 TO 44k 2360 LET $=1/8 
1860 FOR Jet TO 4 2370 IF I-INT(I/4)4»1 THEN 2400 
1870 LET P=P+X(M(1,J)) 2380 LET 4=1 
1880 NEXT J 2370 GOTO 2410 
1890 NEXT I 2400 LET 4-2 
1900 IF Pea THEN 1940 2410 FOR J=A TO 5-A STEP S-2*4 
1910 IF Р<5 THEN 1970 2420 IF ХОМСІ,Ј))=5 THEN 2450 
1920 IF P<? THEN 1940 2430 NEXT J 
1930 IF PX10 THEN 1970 2440 GOTO 2000 
1940 NEXT K 2450 LET ХНС, 3025 
1950 GOSUB 2500 2460 LET HzHCI, D 
1980 GOTO 1200 2470 PRINT "MACHINE TAKES"; 
1970 LET S=1/8 2480 GOSUB 1570 
1980 FOR I-4*K-3 TO “ЖҚ 2490 GOTO 500 
1990 GOTO 2370 2500 FOR Ізі TO 64 
2000 NEXT I 2510 IF X(1)401/8 THEN 2530 
2010 LET S=¢ 2520 LET X(I}=0 
2020 GOTO 1980 uu 2530 NEXT I 
2030 DATA 1,49,52,4,13,61,64,16,22,39,23,38,26, 42,22, 43 2520 RETURN 
3040 DATA 1,2,3,4,5,6,7,8,9,10,11,12,13, 14,13, 16,17,18,19,2 2550 FOR XX=1 TO 9:LPRINT:NEXT:FORI=1TD4 
2050 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38 2550 FORJ=ITOA 
2060 DATA 39,40,41,42,43, 44,45, 46, 47, 48,49, 50,51 ,52,953,54,59,56 2582 FORII-ITDJ 
2070 DATA 57,58,59,60,61,62,63,64 5 RINT! е 
2080 DAT01,17,33,49,5,21,37,53, 9,25, 41,57, 13,29, 43,61 5564 ЕРКІН ! 
2070 DATA 2,18,34,50,6,22,28,54,10,26,42,58,14,30,46,62 2570 FORK=1T04 
2100 DATA 3,19,35,51,7,22,37,55,11,27,43,49,15,31,47,63 2800 LET Q=lá*]+4*J+R-20 
2110 DATA 4,20,36,52,8,24,40,56,12,28,44,60, 16,32, 48,64 2810 IFX(B) COTHEN2630 
2120 ВАТА 1,5,9,13,12,21,25,29,33,37,41,45,49,53,57,41 2620 LPRINT"( ) н, 
2130 DATA 2,6,10,14,18,22,26,30, 34,38, 42, 46,50,54,58, 62 3430 IFX(Q) COSTHEN2450 
2140 DATA 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63 2640 LPRINT OO T 
2150 DATA4,8,12,16,20,24,28,32,36, 40,44, 48,52,56,60, 64 2650 ТЕХ) 1 THEN2440 
2160 DATA1,5,11,16,17,22,27,32, 33,38, 43, 48, 47,54 59,64 2455 LPRINI"() T 
2170 DATA 13,10,7,4,27,26,23,20,45,42, 39, 36, 61,58, 33,52 2450 IF X(D)CM /BTHEN2470 
2180 DATAT,21,41,61,2,22,42,62,3,23,43,63,4,24, 44,64 2865 LPRINT"( ) " 
2190 DATA 49,37,25,15,50,38,26,14,51,39,27,15,52,40, 28,16 2670 NEXTK 
2200 DATA 1,18,35,52,5,22,39,96,9,26,43,60,13,30,47,64 2880 LPRINT 
2210 DATA 49,34,12,4,51,38,23,8,57, 42,27, 12,61, 46,31 ,16 2890 LPRINT 
2220 DATA 1,22,43,64,16,27,38,49,4,23, 42,51,13,26, 19,52 2700 NEXTJ 
2230 FÜR J=} TO 4 2710 LPRINT 
3240 IF X(8(1,J)) 01/8. THEN 2330 2220 LPRINT 
2750 LET X(M(I,J))=5 2730 NEXII 
2260 IF L(1)«8 THEN 2290 2228 LPRINT CHRS(12) 
2270 PRINT "LET^S SEE YOU GET OUT OF THIS: MACHINE MOVES Т0"; 2740 RETURN 
2280 GOTO 2300 . 2750 PRINT"INUORREUT MOVE, RETYPE IT--"; 
2290 PRINT "YOU FOX. JUST IN THE NICK OF TIME, MACHINE MOVES TO"; 2780 6070520 
2300 LET M=B(1I,J) 2770 RUN "MENU" 
2310 GOSUB 1570 
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The game of tic-tac-toe hardly needs any 10 PRINT TAB(3O0);"TIC TAC ТОЕ" 
introduction. In this one, you play versus 20 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 
the computer. Moves are entered by 39 PRINTSPRINTEPRINT 
number: 100 REM THIS PROGRAM PLAYS TIC ТАС TOE 

110 КЕН THE MACHINE GOES FIRST 
1253 120 PRINT "THE GAME BÜARD IS NÜMBERED:": PRINT 
130 PRINT "f 2 3": PRINT "8 9 4": PRINT "7 6 5" 
140 PRINT 
4 5 6 150 REM 
160 REM 
170 REH 
789 180 DEF FNHOOSX-BeINTCOC-12/8) 
190 КЕН 

If you make any bad moves, the com- 200 REM HAIN PROGRAH 
puter will win; if the computer makes a bad 210 PRINT 
move, you can win; otherwise, the game 230 A=9 
ends in a tie. 240 Най 

А second version of the game is included 250 GOSUB 450 
which prints out the board after each move. 240 Р н m 
This is ideally suited to a CRT terminal, 280 МеВ 
particularly if you modify it to not print out 290 GOSUB 650 

wb each move, rath 300 ü-h 
a mh oard after ke th ove, but er 310 IF Q=FNN(B+4) THEN 260 
use the cursor to make the move. 320 C=FNH(B+4) 

The first program was written by Tom 330 Hee 
Koos while a student researcher at the 349 80808 700 
Oregon Museum of Science and Industry; 330 C«FNNCB42) 
it was extensively modified by Steve North 370 М=С 
of Creative Computing. The author of the 380 GOSUB 450 
second game is Curt Flick of Akron, Ohio. 390 R=h 

400 IF R=FNH(U+4) THER 450 
410 D=FNH(C+4) 
420 Не) 
430 GOSUB 700 
440 8070 730 
ТІС ТАС TOE 450 IF P/2OINT(P/2) THEN 500 
CREATIVE COMPUTING  MORRISTOUN, NEU JERSEY 460 DeFNA(C+7) 
470 Ве) 
480 GOSUB 700 

E 84 Ы 
THE GANE BOARD IS NUMBERED: 490 8078 730 
1 2 3 500 D=FRH(C+3) 

8 9 4 510 KD 
765 820 60SUB 650 
520 бай 
540 IF S=FNM(D+4) THEN 590 
550 E=FNB(D+4) 
540 HEE 
R 
COMPUTER NOVES ? 570 GOSUB 700 
COMPUTER MOVES 4 580 REM 
YOUR МОЧЕ? В 590 EsFNM(6) 
COMPUTER MOVES 4 400 KE 
YOUR HOVE? 7 610 GOSUB 700 
COMPUTER MOVES 2 820 PRINT "THE GAME IS А DRAW" 
AND UINS esvceses 630 GOTO 210 
640 REM 
COMPUTER MOVES 9 650 GOSUB 700 
YOUR HOVE? 5 880 PRINT “YOUR HOVE"; 
COMPUTER MOVES 6 670 INPUT M 
YOUR MOVE? 2 680 RETURN 
COMPUTER MOVES 8 700 PRINT "COMPUTER MOVES”; H 
YOUR NOVE? 4 710 RETURN 
COMPUTER MOVES 3 720 RER 
YOUR MOVE? 7 730 PRINT "AND WINS €*esesss" 
COMPUTER MOVES ! 740 GOTO 210 
THE GAME IS A DRAW 750 END 
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2P 
AP 
é P 
8 P 
10 

12 

14 

15 

20 

50 

55 

60 

100 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
118 
120 
122 
126 
128 
130 
131 
132 
133 
135 
136 
138 
150 
132 
156 
158 
160 
161 
162 
163 
165 
166 
168 
170 
71 
172 
173 
174 
175 
176 
177 
178 
179 
181 
182 
183 
187 
189 
195 
202 
205 
450 
455 
460 
465 
467 
475 
500 
502 
503 
505 
506 
510 
520 
530 
100 
101 
10t 
101 
101 
102 
103 
104 
105 
106 


RINT ТАВ(30);“ТІС-ТАС-Т0Е” 


RINT TAB(15) "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 


RINT:PRINT:PRINT 
RINT “THE BOARD IS NUMBERED:" 
PRINT " 1 2 3“ 
PRINT " 4 5 é" 
PRINT *7 8 9" 
PRINT:PRINT:PRINT 

DIN 8(9) 

INPUT"DO YOU WANT "X^ OR 7075369 
IFCS="X" THENA75 
Ранго" 
ба-1:Н=51:1Е5(5)<9>0ТНЕН103 
8(5)2-1:60T0195 

1F8(5) O1THENT06 

IFS(1) OOTHENI10 
$(1)2-1:80T0195 

IF8 (2): 14NDS (1) 20 THEN181 
IFS (A) ТАНОВ CL) EO THENI81 
IFS(S)=1AND S(9)=0THEN18? 
1FS(8)=1ANDS(9)=O0THENI89 
IFÜ*1THEN T2 

6010118 

Je3eINT (QI - 1) 3) 1 
IF3*INT((HB-1)/3)+1=HTHENK=1 
IF3*INT((H-1)/3)+2=BTHENK=2 
IF3eINT((H-1)/3)+3=HTHENK=3 
8010120 
FÜRJ«1T078TEP3:FÜRKs 1103 
IFS (J) OGTHENIIO 

IFS (J+2)<>GTHENT35 

1Е8 СІН C>OTHENTSO 
$(J41)2-1:8010195 

IFS(J) =НТНЕНІЗ0 

IFS(J$2) ОБТНЕНІ50 

IFS(J+1) OBTHENTSO 
S(J)=-1:8010195 

1F8(J42) OOTHENI50 

IFSC 41) OGTHENTSO 
S(J+2)=-1:6DT0195 

IFS(K) OBTHENTAO 

IFS (K+) <>GTHENT 65 

IFS(K*3) OOTHENI20 
S(K+3)=-1:60T10195 
IFS(K)=HTHEN170 
IFS(K+6)<>GTHENI70 

TFS (КЗ) OGTHEN120 
8(К)=-1:6010175 

IFS(K+6) OOTHENT70 

IFS(K*3) OBTHENI70 
S(K+é)=-1:60T0195 

8070450 

IFS (3) 56ANDS (7) »0THEN187 
IFS(9)=GANDS(1)=0THEN181 
IFS(7)=GANDS(3)=OTHEN183 
IFS(9)=OANDS( 1) =6ТНЕНІ89 
IFG2~1THENG=1 Н=- 126070110 
IFS(9)-10ND5(3) =0ТНЕНІ82 
FÜRIs2TU9:IFS(I)Q 0THEN179 
S(I)=-1:60T0195 

NEXTI 

S(1)=-1:00T10195 
IFS(1)=1THEN177 
S(3)=-1:6010195 
S(7)=-1:00T0195 

8(9)2-1 

PRINT:PRINT"THE COMPUTER HOVES TO..." 
805091000 

6010500 

IFU-TTHENAAS 

IF J©7ANDK=3THENAGS 

NEXT, J 

IFS(S) :GTHEN171 

6010175 

PSs" x" 208270" 

PRINTS INPUT"WHERE DO YOU HOVE" SH 
IF Маф THENPRINT"THANKS FOR THE БАНЕ”:0070 2000 
IFH>9THEN 506 
IFS(N)sOTHENSTO 

PRINI"THAT SQUARE IS ÜCCUPIED":PRINT:PRINT:GOTOSOO 
61:8 (051 

G0SUB 1000 

GOTO 100 

0 PRINT:FORISITOP:PRINT* "i:IFSCI) Oi 1THENTO14 
2 PRINTOS" "::60101020 

4 IF 8(1)9>0ТНЕН 1018 

& PRINT" *}:80101020 

8 PRINTPS* "; 

0 IFIOGANDIOATHENT050 

0 РЕІНТІРКІНТ"------і---" 
0 6070 1080 

0 IFI=9THEN1080 

0 РЕЇНТ^!”; 


1080 
1095 
1100 
1105 
1110 
1112 
1115 
1130 
1135 
1137 
1150 
1152 
1155 
1160 
1165 
1170 
1180 
1200 
1350 
1400 
2000 


NEXTI:PRINT:PRINT:PRINT 

FOR Is1T07STEP3 

1Ё541)955(1+1)ТНЕН1115 
1Е5(1)9›58(1+2)ТНЕН1115 
IFS(I)=-1THEN1350 

IFS(I)=1THEN1200 

NEXTI:FORISITO3: IFSCI)OS(CIS3) THEN 1150 
TFS(1)<>S(14+6) THENI 150 
IFS(1)=©-1THEN13350 

IFSGOS1THENT200 

NEXTI:FÜRI-1TOV: IFSCI)EOTHEN1125 
НЕХТІ:60701400 

1Е5(05) CO GTHENTI20 

IFSCGSBANDS(? )GTHEN1180 
TFS(3)=GANDS(7)=GTHEN1180 

RETURN 

IFGz-1THEN1350 

PRINT"YOU BEAT ME!! GOOD GAME":G0TO2000 


PRINT^I WIN, TURKEY!1!":G0T02000 
PRINT"IT^S А DRAW. THANK YOU" 
END 


TIC-TAC- TOE 


CREATIVE COMPUTING MORRISTOWN, NEU JERSEY 


WHERE DO YOU MOVE? 7 
D IS NUMBERED: 


DO YOU WANT "X^ OR “07? X 


WHERE DO YOU KOVE? 5 THE COMPUTER MOVES TO... 
! 1 0! 10 

—* ZZ C %---ж--- 
ХІ O1rxix 

— + ZZ = %---%--- 
! і x! І 


08! ! 01х10 
-“ч4--4--- ZZ de 
I! X! Dl X! X 
——*+ Zo de 
i i ї 1 
WHERE DO YOU MOVE? á THE COMPUTER MOVES TO... 
0i Н 091Х18 
---%---%--- тее 
xix QOL X! X 
иө Э %---%--- 
i ' X10! 


' Orxi 
etern ZZ 2 oO %---%--- 
X бхХ 
waa %---%--- 
! X101!*x 


1158 A DRAW. THANK YOU 


Tower 


This isasimulation of a game of logic 
that originated in the middle East. It is 
sometimes called Pharoah's Needles, 
but its most common name is the 
Towers of Hanoi. 

Legend has it that a secret society of 
monks live beneath the city of Hanoi. 
They possess three large towers or 
needles on which different size gold 
disks may be placed. Moving one at a 
time and never placing a larger on a 
smaller disk, the monks endeavor to 
move the tower of disks from the left 
needle to the right needle. Legend says 
when they have finished moving this 
64-disk tower, the world will end. How 
many moves will they have to make to 
accomplish this? If they can move 1 
disk per minute and work 24 hours per 
day, how many years will it take? 

In the computer puzzle you are faced 
with three upright needles. On the 
leftmost needle are placed from two to 
seven graduated disks, the largest 
being on the bottom and smallest on 
the top. Your object is to move the 
entire stack of disks to the rightmost 
needle. However, you may only move 
one disk at a time and you may never 
place a larger disk on top of a smaller 
one. 

In this computer game, the disks are 
referred to by their size — i.e., the 
smallest is 3, next 5, 7, 9, 11, 13, and 15. 
If you play with fewer than 7 disks 
always use the largest, i.e. with 2 disks 
you would use nos. 13 and 15. The 
program instructions аге self- 
explanatory. Good luck! 

Charles Lund wrote this program 
while at the American School in the 
Hague, Netherlands. 


TOWERS 
CREATIVE COMPUTING HORRISTOUN, NEW JERSEY 


TOWERS OF HANOI PUZZLE 


YOU MUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT 
TOWER, ONE AT A ТІНЕ, NEVER PUTTING A LARGER DISK ON A 


SHALLER DISK. 


HOW MANY DISKS DO YOU WANT TO MOVE (7 IS NAX)? З 


IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE. 
3 UILL REPRESENT THE SHALLEST DISK, 5 THE NEXT SIZE, 
7 THE NEXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH 


2 DISKS, THEIR CODE НАМЕЅ UOULD BE 13 AND 15. 
THE CODE NAMES WOULD BE 11, 13 AND 15, ETC. 


ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. WE UILL 
START WITH THE DISKS ON NEEDLE 1, AND ATTENPT TO MOVE THEN 


TO NEEDLE 3. 
GOOD LUCK! 


* * * 

* * * 

* * * 

* * * 
544443544 * * 
6994245405 * * 
9%%%899%%99%5<%9 ж ж 


UHICH DISK WOULD YOU LIKE TO MOVE? 11 
PLACE DISK QN UHICH NEEDLE? 3 


* 
ы 
LEETE EEEE EEE EEE + eee ERED 
WHICH DISK WOULD YOU LIKE TO MOVE? 13 
PLACE DISK ON WHICH NEEDLE? 2 


*° + е + 
ene ++ + í + 
ee + + + 


» * * 

* * * 

* * * 

* * * 

* * * 

* * * 
EKRERESE NEESER ba eg ELETTI TEETE] 


UHICH DISK WOULD YOU LIKE TO HOVE? 11 
PLACE DISK ON UHICH NEEDLE? 2 


* * * 
* * * 
* * * 
* * * 
* ж * 
+ saei tok * 

ы ТЫ LET EEE EEEE EEES * 

WHICH DISK UOULD YOU LIKE TO HOVE? 15 

PLACE DISK ON WHICH NEEDLE? 3 
* * * 
+ * * 
* * * 
* * * 
* М * 
+ LETETTE TESES * 
+ LTTE TETEE EEREN RERESET EEEE EES EI 


WHICH DISK WOULD YOU LIKE TO MOVE? 13 

THAT DISK IS BELOW ANOTHER ONE. NAKE ANOTHER CHOICE. 
WHICH DISK WOULD YOU LIKE TO KOVET 11 

PLACE DISK ON WHICH NEEDLE? 1 


* -> ж 

* * * 

* * * 

* * * 

* * * 

* * * 
3933045556 $99 testtestee» dd idiiilllllll 


UHICH DISK UOULD YOU LIKE TO HOVE? 13 
PLACE DISK ON WHICH NEEDLE? 3 


ж ж ж 

* * * 

* * * 

* * * 

* * ж 

* * LEE TETEE EEEE pA 

2222222222 * tax bp epe 

WHICH DISK WOULD YOU LIKE TO MOVE? 11 
PLACE DISK GN WHICH NEEDLE? 3 

* + * 

* * * 

* * * 

* * * 

$ * Xoops 

* * ымы 

ж * (EEE EEEE EEEE EE 
CONGRATULATIONS! ! 


YOU HAVE PERFORMED THE TASK IN 7 MOVES. 
TRY AGAIN (YES OR NOG)? NO 
THANKS FOR THE GANE! 


10 PRINT TAB(33) ;" TOUERS"' 
20 PRINT TABCIS);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 
30 PRINT:PRINT:PRINT 

90 PRINT 

100 REM#** INITIALIZE 

100 DIK Т(7,3) 

120 E=0 

130 FOR D=1 TO 7 

140 FOR N=} TO 3 

150 T(D,N)=0 

160 NEXT N 
120 NEXT D 
180 PRINT 
200 PRINT 
205 PRINT 
210 PRIAT 
215 INPUT 
220 PRINT 
230 H=0 
240 FOR 0-1 T0 7 

250 IF 055 THEN 350 

260 NEXT Q 

270 Е=Е+1 

280 IF E>2 THEN 310 

290 PRINT “SORRY, BUT I CAN’T DO THAT JOB FOR YOU.": 6010 215 

310 PRINT "ALL RIGHT, WISE GUY, IF YOU CAN^T PLAY THE GAME RIGHT, I'LL" 
220 PRINT "JUST TAKE HY PUZZLE AND GO НОМЕ. 50 LONG.": STOP 

340 ВЕН эж» STORE DISKS FROM SHALLEST TO LARGEST 


“FOUERS OF HANOI PUZZLE": PRINT 

"YOU HUST TRANSFER THE DISKS FROM THE LEFT TO THE RIGHT" 
“TOWER, ONE AT A ТІНЕ, NEVER PUTTING A LARGER DISK ON А" 
“SMALLER DISK.": PRINT 

“HOU MANY DISKS BO YOU WANT TO MOVE (7 IS HAX)';S 


350 PRINT "IN THIS PROGRAH, WE SHALL REFER TO DISKS BY NUMERICAL CODE." 
335 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE," 

360 PRINT "7 THE NEXT, AND SO ON, UP TO 15. IF YOU DO THE PUZZLE WITH" 
365 PRINT "2 DISKS, THEIR CODE NAMES WOULD BE 13 AND 15. WITH 3 DISKS" 
370 PRINT "THE CODE NAHES WOULD BE 11, 13 AND 15, ETC. THE NEEDLES" 
375 PRINT "ARE NUMBERED FROM LEFT TO RIGHT, 1 TO 3. ШЕ WILL" 

380 PRINT "START WITH THE DISKS ON NEEDLE 1, AND ATTEMPT TO HOVE THEM" 
385 PRINT "TO NEEDLE 3." 

390 PRINT: PRINT “GOOD LUCKi": PRINT 

400 Ү=7: р=15 

420 FOR Х=5 TO 1 STEP -1 

430 T(Y,1)7D: D=D-2: Y-Y-1 

460 NEXT X 

470 GOSUB 1230 

480 PRINT "WHICH DISK WOULD YOU LIKE TO МОЧЕ"; :Е=0 

$00 INPUT D 

510 IF (D-3)5(0-50$0D-7) (0-929 (2-11)8(D-13) (D-15070 THEN 580 


520 PRINT "ILLEGAL ENTRY... YOU MAY ONLY TYPE 3,5,7,9,11,13, OR 15." 


$30 Е=Е+1: IF E>? THEN 560 

550 GOTO 500 

580 PRINT "STOP WASTING HY TINE. 80 BOTHER SOMEONE ELSE."" STOP 
580 КЕН *«* CHECK IF REQUESTED DISK IS BELOW ANOTHER 

590 FOR Кай? TO 7 

600 FÜR Сеј TO 3 

410 IF T(R,C)2D THEN 440 

620 МЕХТ С: NEXT R 

640 FÜR Q=R TO 1 STEP -1 

645 IF T(Q0,C)-0 THEN 640 

650 IF T(Q,C)<D THEN 680 

660 NEXT Q 

670 GOTO 700 

680 PRINT "THAT DISK IS BELOW ANOTHER ONE. МАКЕ ANOTHER CHOICE." 
690 GOTO 480 

700 Е=0 


1050 
1066 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
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INPUT "PLACE DISK ON WHICH NEEDLE";N 

IF (N-1)*(4-2)*(N-3)70 THEN 800 

E=E+1 

IF ЕУІ THEN 780 

PRINT "I'LL ASSUME YOU HIT THE URONG KEY THIS TIME. 
PRINT "I ONLY ALLOW ONE MISTAKE.": GOTO 705 
PRINT "I TRIED TO WARN YOU, BUT YOU UQULDN^T LISTEN.” 
PRINT "BYE BYE, BIG SHOT.": STOP 

FOR R=1 TO 7 

IF T(R,N)X»0 THEN 840 

NEXT R 

бото 880 

REN *** CHECK IF DISK TO BE PLACED ON A LARGER ONE 
IF DXT(R,N) THEN 880 

PRINT "YOU CAN^T PLACE A LARGER DISK ON TOP OF A SMALLER ONE," 
PRINT "IT NIGHT CRUSH IT!": PRINT "NOU THE, “3:GOTO 480 
КЕН *** HOVE RELOCATED DISK 

FOR V=t TO 7: FOR W=t TO 3 

IF T(V,W)=D THEN 930 

NEXT Us NEXT U 

КЕН +9% LOCATE EMPTY SPACE ON NEEDLE N 

FOR U=1 10 7 

IF T(U,N) 0 THEN 970 

WEXT U 

U-7: GOTO 980 
REH жә HOVE DISK AND SET OLD LOCATION TO 0 
U=U-1 

ТСО, МТСИ, ШЕ T(V,U)=Q 
КЕН өе% PRINT QUT CURRENT STATUS 

GOSUB 1230 

КЕН «өс CHECK IF DONE 

H=B+1 

FOR R=! TD 7; FOR Се) TO 2 

IF T(R,C)<>20 THEN 1090 

NEXT C: NEXT R 

GOTO 1120 

IF Ю<:128 THEN 480 

PRINT "SORRY, BUT I HAVE ORDERS TO STOP IF YOU MAKE HORE THAN" 
PRINT "128 MÜVES.": STOP 

IF Ң52275-1 THEN 1140 

PRINT "CONGRATULATIONS!!" 

PRINT "YOU HAVE PERFORMED THE TASK IN";M;"MOVES," 
PRINT: PRINT "TRY AGAIN (YES OR NO)";: INPUT A$ 

IF A$="KO" THEN 1390 

IF A$z"YES" THEN 90 

PRINT: PRINT ""YES^ OR ‘NO’ PLEASE";: INPUT A$: GOTO 1160 
REM *** PRINT SUBROUTINE 

FOR Ке! TO 7 

1:10 

FOR Jef TO 3 

IF T(K,J)=0 THEN 1330 

PRINT TAB(Z-INT(CT(G J2/2)); 

FOR 9-1 TO T(K,J) 

PRINT "t"; 

NEXT V 

GOTO 1340 

PRINT ТАВ(17);"#"; 

1=1+21 

NEXT J 

PRINT 

NEXT K 

RETURN 

PRINT: PRINT "THANKS FOR THE GAME!": PRINT: END 
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TRAIN is a program which uses the 
computer to generate problems with 
random initial conditions to teach 
about the time-speed-distance 
relationship (distance = rate x time). 
You then input your answer and the 
computer verifies your response. 

TRAIN is merely an example of a 
student-generated probiem. Maximum 
fun (and benefit) comes more from 
writing programs like this as opposed 
to solving the specific problem posed. 
Exchange your program with others — 
you solve their problem and let them 
solve yours. 

. TRAIN was originally written in 

FOCAL by one student for use by 
others in his class. It was submitted to 
us by Walt Koetke, Lexington High 
School, Lexington, Mass. 


TRAIN 
CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


ТІНЕ - SPEED DISTANCE EXERCISE 


1 PRINT TABCT3) “TRAIN” 


А CAR TRAVELING 54 MPH CAN MAKE A CERTAIN TRIP IN 2 PRINT ТАВ(15); "СКЕЙТІМЕ COMPUTING MORRISTOUN, NEW JERSEY" 
11 HOURS LESS THAN A TRAIN TRAVELING AT 36 MPH. 3 PRINT: PRINT: PRINT 
HOU LONG DOES THE TRIP TAKE BY CAR? 23. 4 PRINT "TIME - SPEED DISTANCE EXERCISE": PRINT 
GOOD! ANSUER WITHIN 4 PERCENT. 10 C#=INT(25*#RND(1))+40 
CORRECT ANSUER IS 22 HOURS. 15 0=1НТ(15%ЕН0(1))+5 
20 TSINTCH9#RND( 1) 420 
ANOTHER PROBLEM (YES OR NO)? YES 25 PRINT " A CAR TRAVELING";C;"MPH CAN MAKE A CERTAIN TRIP ІН" 
30 PRINT D;"HOURS LESS THAM A TRAIN TRAVELING AT*;T;"MPH.* 
8 CAR TRAVELING 40 МРН CAN MAKE A CERTAIN TRIP IN 35 PRINT "HOU LONG DOES THE TRIP TAKE BY CAR"; 
14 HOURS LESS THAN A TRAIN TRAVELING AT 34 MPH. 40 INPUT A 
HOW LONG DOES THE TRIP TAKE BY CART 20 45 У-)әТ/(6-Т) 
SORRY. YOU ШЕКЕ ОҒҒ BY 297 PERCENT. $0 E=INT(ABS((V~A)#100/A)+.5) 
CORRECT ANSUER IS 79.3333 HOURS. $3 IF E55 THEN 70 
60 PRINT "GOOD! ANSUER UITHIN";E; "PERCENT." 
ANOTHER PROBLEM (YES OR NO)? YES 65 GOTO 80 
70 PRINT "SORRY. YOU ШЕКЕ OFF BY";E;"PERCENT." 
А CAR TRAVELING 47 MPH CAN MAKE A CERTAIN TRIP ІН 80 PRINT "CORRECT ANSWER 15% "HOURS," 
16 HOURS LESS THAN A TRAIN TRAVELING AT 22 MPH. 90 PRINT 
HOU LONG DOES THE TRIP TAKE BY CART 14 95 PRINT "ANOTHER PROBLEM (YES OR NO)"; 
GOOD! ANSUER UITHIN 1 PERCENT. 100 INPUT A$ 
CORRECT ANSUER IS 14.08 HOURS. 105 PRINT 
110 IF AS="YES" THEN 10 
ANOTHER PROBLEM (YES OR NO)? NO 999 END 
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Trap 


This is another in the family of "guess 
the mystery number" games, In TRAP 
the computer selects a random number 
between | and 100 (or other limit set in 
statement 20). Your object isto find the 
number. On each guess, you enter 2 
numbers trying to trap the mystery 
number between your two trap 
numbers. The computer will tell you if 
its number is larger or smaller than 
your trap numbers or if you have 


trapped the number. YOU HAVE TRAPPED НҮ NUMBER 
To win the game, you must guess the ° 
mystery number by entering it as the GUESS ú 2 ? 50,60 
same value for both of your trap HY NUNBER IS SHALLER THAN YOUR TRAP NUMBERS. 
numbers. You get 6 guesses (this GUESS 4 3 T 35,45 
should be changed in statement 10 if MY HUMBER IS SHALLER THAN YOUR TRAP NUMBERS. 
you change the guessing limit in 
statement 20). GUESS # 4 ? 32,34 
After you have played GUESS, YOU HAVE TRAPPED HY NUMBER. 
STARS, and TRAP, compare the GUESS á 5 7 33,33 
guessing strategy you have found best HY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS. 


for each game. Do you notice any 


. . NAM А ? 2 
similarities? What are the differences? GUESS @ 6 * 32,32 


А ; YOU GOT IT!!! 

Can you write a new guessing game 1 PRINT ТАВ(ЗА):“ТВАР 

i қ 9 4);" TRAP" 
with still another approach? 10 2 PRINT ТАВ(19); "СВЕАТІЧЕ COMPUTING MORRISTOWN, NEU JERSEY" 

was suggested by a TU-year 3 PRINT:PRINT:PRINT 

old when he was playing GUESS. It was 10 6-4 
originally programmed by Steve UI- 20 N=100 
Iman and extensively modified into its 30 REM-TRAP , 
final form by Bob Albrecht of People's 40 ЕЕКЕЗТЕШЕ aaia 81-22 
ina y р 50 PRINT "INSTRUCTIONS"; 
Computer Co. 40 INPUT Z$ 


70 IF LEFT&(28,1) O "Y". THEN 180 
80 PRINT "I AM THINKING OF A NUMBER BETUEEN 1 AND";H 
90 PRINT “TRY TO GUESS HY NUMBER. ON EACH GUESS," 
100 PRINT “YOU ARE 10 ENTER 2 NUMBERS, TRYING TO TRAP" 
TRAP 110 PRINT “HY NUMBER BETWEEN THE TWO NUMBERS. I WILL" 
120 PRINT "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF NY" 
CREATIVE COMPUTING  MÜRRISTOUN, NEU JERSEY 130 PRINT “NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF" 
140 PRINT "HY NUMBER IS SMALLER THAN YOUR TWO NUMBERS." 
150 PRINT "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE" 
140 PRINT “YOUR GUESS FOR BOTH YOUR TRAP NUMBERS.“ 
170 PRINT "YOU GET";0;"GUESSES TO GET MY NUMBER." 
180 X=INT(N*RND(1))+1 
190 FOR 0=1 TO 8 
200 PRINT 
210 PRINT “GUESS #";Q; 
220 INPUT A,B 
230 IF A=B AND X=A THEN 400 
240 IF А <= B THEN 260 
250 GOSUB 340 
260 IF А <= X AND X <= B THEN 320 
GUESS й 1 ? 25,75 270 IF X<A THEN 300 
YOU HAVE TRAPPED MY NUMBER. 280 PRINT "HY NUMBER IS LARGER THAN YOUR TRAP NUMBERS." 
GUESS 4 2 ? 40,40 220 GOTO 330 
? 40, . 
RY SUMNER IS SRM ER THAN YOUR TRAP NUMBERS. 300 PRINT HV NUMBER IS SHALLER THAN YOUR TRAP NUMBERS.” 
“ 
QUSS W 3 ? 30,77 320 PRINT YOU HAVE TRAPPED HY NUMBER." 
YOU HAVE TRAPPED HY NUMBER. 340 PRINT "SORRY, THAT’S";G; "GUESSES. NUMBER UAS";X 
250 GOTO 410 


INSTRUCTIONS? YES 

I АН THINKING OF A NUMBER BETWEEN 1 AND 100 
TRY TO GUESS MY NUMBER. ON EACH GUESS, 

YOU ARE TO ENTER 2 NUMBERS, TRYING TO TRAP 

НҮ NUMBER BETWEEN THE TUO NUMBERS. I WILL 
TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY 
NUMBER 18 LARGER THAN YOUR TWO NUMBERS, OR IF 
HY NUHBER IS SMALLER THAN YOUR TUO NUMBERS. 
IF YOU WANT TO GUESS ONE SINGLE NUHBER, ТҮРЕ 
YOUR GUESS FOR BOTH YOUR TRAP NUMBERS. 

YOU GET 6 GUESSES TO GET МҮ NUMBER. 


GUESS ü 4 7 34,36 380 R=A 

YOU HAVE TRAPPED MY NUMBER, 370 A=B 

GUESS ü 5 7 35,35 30 RETURN 

HY NUMBER IS SHALLER THAN YOUR TRAP NUMBERS. 400 PRINT “YOU GOT ITIL" 
410 PRINT 

GUESS й á ? 34,34 : 420 PRINT "TRY AGAIN." 

YOU GOT IT!!! 430 PRINT 

TRY AGAIN. 450 END "m 
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23Matches 


In the game of twenty-three matches, YOUR TURN -- YOU HAY TAKE 1,2,0R 3 MATCHES. 
you start with 23 matches lying on a THERE ARE NOU HATCHES REMAINING. = 
table. On each turn, you may take 1,2, HY TURN ! I RENOVE 3 MATCHES 
or 3 matches. You alternate moves with THE NUHBER OF HATCHES IS NOW 5 
the computer and the one who has to 
take the last match loses. YOUR TURN -- YOU BAY TAKE 1,2,0R 3 MATCHES. 

; : nnl HOW MANY DO YOU WISH TO RENOVE 12 

The easiest way to devise a winning THERE ARE NOU 3 HATCHES REMAINING. 
strategy is to start at the end of the HY TURN ! I REMOVE 2 MATCHES 
game. Since you wish to leave the last 
match to your opponent, you would YOU POOR BOOB ! YOU TOOK THE LAST MATCH ! I GOTCHA !! 
; h , Ha ! HA! I BEAT YOU !!! 
like to have either 4, 3, or 2 on your last н ! 


turn so you can take away 3, 2, or 1 and GOOD BYE LOSER! 
leave 1. Consequently, you would like 
to leave your Opponent with 5 on his 


next to last turn so, no matter what his 20 PRINT TAB(31);"23 HATCHES" 


move, you are left with 4, 3, or 2. Work 30 PRINT TAB(15); "CREATIVE COMPUTING  HORRISTOUN, NEW JERSEY" 
this backwards to the beginning and 40 PRINT:PRINT:PRINT 
you'll find the game can effectively be 80 PRINT " THIS IS А GAME CALLED 723 MATCHES^." 
А 90 PRINT 
won оп the first move. Fortunately, the 100 PRINT “WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TUO, OR THREE" 
computer gives you the first move, so if 110 PRINT “HATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE" 
you play wisely, you can win. 120 PRINT "THE LAST HATCH." 
, H 
After уоцуе tered 23 Matches, 140 PRINT "LET^S FLIP A COIN TO SEE UHO GOES FIRST." 
move on to E and then to NIM. 150 PRINT "IF IT COMES UP HEADS, 1 WILL WIN THE TOSS." 
This version of 23 Matches was 155 PRINT 
originally written by Bob Albrecht of 140 REH 
People’s Computer Company. 185 Н = 23 


170 Q = INT(29RND(S)) 

180 IF Q = 1 THEN 210 

190 PRINT “TAILS ! YOU GO FIRST " 

195 PRINT 

200 GOTO 300 

210 PRINT "HEADS! I UIN! НА! HA!” 

220 PRINT “PREPARE TO LOSE, MEATBALL-NOSE !!" 
230 PRINT 

230 PRINT " I TAKE 2 MATCHES” 

260 Ñ = Ñ -2 

270 PRINT "THE NUMBER OF WATCHES IS NOU" N 
280 PRINT 

290 PRINT "YOUR TURN -- YOU NAY TAKE 1,2,0R 3 MATCHES.” 
300 PRINT “HOU HANY DO YOU WISH TO REMOVE", 


310 INPUT K 
23 MATCHES 320 IF K > 3 THEN 430 

CREATIVE COMPUTING HORRISTOWN, NEW JERSEY 330 IF K <= 0 THEN 430 
340 NEN K 

THIS IS А GAME CALLED ^23 MATCHES”. 330 PRINT "THERE ARE NOU ";N;"HATCHES REMAINING." 
351 IF N = 4 THEN 381 

WHEN IT IS YOUR TURN, YOU MAY TAKE ONE, TWO, OR THREE 352 IF N * 3 THEN 383 

MATCHES. THE OBJECT OF THE GAME IS NOT TO HAVE TO TAKE 353 IF N = 2 THEN 385 

THE LAST HATCH. 360 IF N <= 1 THEN 530 
37021 =4- K 

LET'S FLIP A COIN TO SEE WHO GOES FIRST. 372 GOTO 390 

IF IT COMES UP HEADS, I WILL WIN THE TOSS. 380 PRINT 
381 22 3 

HEADS! I UIN! HA! НА! 382 GOTO 390 

PREPARE TO LOSE, HEATBALL-NOSE 11 30832 = 2 
384 GOTO 390 

I TAKE 2 MATCHES 385 Z = 1 

THE NUMBER OF HATCHES IS NOW 21 390 PRINT “HY TURN ! I REMOVE" Z "HATCHES" 
400N3N8-2 

YOUR TURN ~- YOU MAY TAKE 1,2,0R 3 MATCHES. 410 IF N € = £ THEN 470 

HOW MANY DO YOU WISH TO REMOVE 13 420 GOTO 270 

THERE ARE NOU 18 MATCHES REMAINING. 430 PRINT “VERY FUNNY ! DUMMY!" 

MY TURN ! I REMOVE 1 HATCHES 440 PRINT "DO YOU WANT TO PLAY OR GOOF ARQUND 7" 

THE NUMBER OF HATCHES IS NOU 17 450 PRINT "NOU HOU MANY HATCHES DO YOU VANT", 
460 GOTO 310 

YOUR TURN -- YOU HAY TAKE 1,2,0R 3 MATCHES. 470 PRINT 

HOW MANY DO YOU WISH TO REHOVE 71 480 PRINT"YOU POOR BOOB ! YOU TOOK THE LAST HATCH | I GOTCHA !!" 

THERE ARE NOU 16 MATCHES REMAINING. 490 PRINT "Hà ! HA! I BEAT YOU ІНІ" 

HY TURN ! I REMOVE 3 MATCHES 500 PRINT 

THE NUMBER OF HATCHES IS NOU 13 510 PRINT "BODD BYE LOSERI!" 
520 GOTO 560 

YOUR TURN -- YOU HAY ТАКЕ 1,2,0К 3 WATCHES. 530 PRINT "YOU WON, FLOPPY EARS 1" 

HOU HANY DO YOU WISH TO REMOVE ті 540 PRINT "THINK YOU“ RE PRETTY SMART !" 

THERE ARE NOU 12 MATCHES REMAINING. 550 PRINT "LETS PLAY AGAIN AND I'LL BLOW YOUR SHOES OFF 11" 

МҮ TURN ! I REMOVE 3 HATCHES 580 STOP 

THE HUMBER OF MATCHES IS NOU 9 570 END 
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This program plays the card game of 10 PRINT TABC33) ; "UAR" 


War. In War, the card deck is shuffled, 20 PRINT TAB CIS) "CREATIVE COMPUTING  MORRISTOUN, NEW JERSEY" 
then two cards are dealt, one to each 100 PRINT "THIS IS THE CARD GAME OF UAR. EACH CARD IS GIVEN BY SUIT-M" 
player. Players compare cards and the 110 PRINT “AS 9-7 FOR SPADE 7. "; 
higher card (numerically) wins. In case 120 PRINT "DO YOU WANT DIRECTIONS"; 
of a tie, no one wins. The game ends 130 INPUT BS - 
when you have gone through the whole 150 ir 4--YES* THEN 180 
deck (52 cards, 26 games) or when you 160 PRINT "YES DR NO, PLEASE. "; 
decide to quit. 170 GOTO 120 
ives cards by suitand 180 PRINT "THE COMPUTER GIVES YOU AND IT A CARD’. THE HIGHER CARD" 
number. tor xai сато ie the 7 of 190 PRINT "(NUHERICALLY) WINS. THE GAME ENDS UHEN YOU CHOOSE NOT TO" 
, , 200 PRINT "CONTINUE OR UHEN YDU HAVE FINISHED THE PACK." 
spades. 210 PRINT 
220 PRINT 
230 DIM A$(52),LC54) 
UAR 240 FOR I=1 TO 52 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 250 READ AS(I) 
260 NEXT I 
THIS IS THE CARD GAME OF UAR. EACH CARD IS GIVEN BY SUIT-# 270 REM 
AS 5-7 FOR SPADE 7. DO YOU UANT DIRECTIONS? YES 280 FOR J=1 10 52 
THE COMPUTER GIVES YOU AND IT A “САК”. THE HIGHER CARD 290 LET L(J)=INT(52#RND(1))+1 
(NUMERICALLY) WINS. THE GAME ENDS WHEN YOU CHOOSE NOT TO 295 IF J=1 THEN 350 
CONTINUE DR ШНЕН YOU HAVE FINISHED THE PACK. 300 FOR К=1 TO J-1 
310 IF LOO OLCJ). THEN 340 
320 КЕН 
330 GOTO 290 
YOU: S-10 COMPUTER: 5-2 340 NEXT K 
YOU UIN. YOU HAVE 1 COMPUTER HAS 0 350 NEXT J 
DO YOU WANT TO CONTINUE? YES 360 P=P+1 
370 HizL(P) 
YOU: 5-9 COMPUTER: H-J 380 P=P+1 
COMPUTER WINS!!! YOU HAVE ! COMPUTER HAS 1 390 М2=1 (Р) 
DO YOU WAHT TO CONTINUE? YES 400 PRINT 
420 PRINT "YOU: ";A$(H1),"COMPUTER: ";4$(82) 
YOU: 5-5 COMPUTER: D-3 430 NIZINTC(HI-.5)/4) 
YOU ШІН. YOU HAVE 2 COMPUTER HAS 1 440 N2=INT((H2-.5)/4) 
DO YOU WANT TO CONTINUE? YES 450 IF N15=N2 THEN 490 
460 А1=А1+1 
YOU: S-K CONPUTER: Н-0 470 PRINT "COMPUTER UINS!!! YOU HAVE";BI;" COMPUTER HAS" 241 
YOU WIN. YOU HAVE 3 COMPUTER HAS 1 480 GOTO 540 
DO YOU WANT TO CONTINUE? YES 490 IF N1-N2 THEN 530 
500 В1=В1+1 
YOU: C-10 COMPUTER: С-8 510 PRINT "YOU VIN. YOU HAUE";B1;" COMPUTER HAS";A1 
YOU UIN. YOU HAVE 4 COMPUTER HAS 1 520 GOTO 540 
DO YOU WANT TO CONTINUE? YES 530 PRINT "TIE. NO SCORE CHANGE." 
540 IF L(P+1)=0 THEN 610 
YOU: H-5 COMPUTER: C-5 550 PRINT "DO YOU WANT TO CONTINUE"; 
TIE. NO SCORE CHANGE. 540 INPUT V$ 
DO YOU VANT TO CONTINUE? YES 570 IF V$-"YES" THEN 360 
580 IF V$="NO" THEN 650 
YOU: H-A COMPUTER: 5-4 590 PRINT "YES OR NO, PLEASE. "; 
YOU WIN. YOU HAVE 5 COMPUTER HAS 1 600 GOTO 540 
DO YOU WANT TO CONTINUE? YES 610 PRINT 
620 PRINT 
YOU: D-K COMPUTER: C-K 630 PRINT "YOU HAVE RUN OUT OF CARDS. FINAL SCORE: Y0U--";Bl; 
TIE. WO SCORE CHANGE. 640 PRINT "; COMPUTER--";41 
DO YOU WANT Т0 CONTINUE? YES 650 PRINT "THANKS FOR PLAYING. IT WAS FUN." 
640 DATA *$-2","H-2" ,"C-2","D-2" ,"S-3" , "H-3" ,"C- 3" ,"D-3" 
YOU: C-3 COMPUTER: C-9 870 DATA "S-4","H-4" "CA" ,"D-4","B-5", "H-5", "C-5", "D-5" 
COMPUTER WINS!!! YOU HAVE 5 COMPUTER HAS 2 680 DATA "5-6","H-6","C-5","D- 6" ,"S-7" ,"H-7" , "C-7" ,"p-7" 
DO YOU WANT TO CONTINUE? YES 690 DATA *5-8","H-B","C-B","D-B" , "G-9" ,"H-9" "D-9" "p-9" 
700 DATA "S-10","H-10", "0-10", "D-10" ,"5- J" ,"H- J^, "C- J^ ,"D-J" 
YOU: H-7 COMPUTER: С-0 710 DATA "S-0","H-0" ,"C-Q", "D-0" ,"S-K" , "H-K" , "C-K", "D-K" 
COMPUTER WINS!!! YOU HAVE 5 COMPUTER HAS 3 720 DATA "S-A" "H-A" "CA", "DA" 
DO YOU WANT TO CONTINUE? YES 999 END 
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 Weekday 


This program gives facts about your 10 PRINT TAB(32) ;"UEEKDAY* 
date of birth (or some other day of 20 PRINT TAB(IS);"EREATIVE COMPUTING  MORRISTOUM, NEW JERSEY" 
А . ; 30 PRINT:PRINT:PRINT 
interest). It is not prepared to give 100 PRINT “WEEKDAY IS à COMPUTER DEMONSTRATION THAT" 
information on people born before the 110 PRINT"GIVES FACTS ABOUT A DATE OF INTEREST TO YOU." 
use of the current type of calendar, i.e. 120 PRINT 
year 1582 ; 130 PRINT “ENTER TODAY^S DATE IN THE FORN: 3,24,1978 °3 

` , А 140 INPUT НІ, 01,11 

You merely-enter today's date in the 150 REM THIS PROGRAM DETERMINES THE DAY OF THE WEEK 
form — month, day, year and your date 160 REH FOR A DATE AFTER 1582 
of birth in the same form. The computer 170 DEF FNACA)SINT(A/4) 
then tells you the day of the week of 180 DIM T(12) 

; 190 DEF FNB(A)SINT(A/7) 
your birth date, your age, and how 200 REM SPACE OUTPUT AND READ IN INITIAL VALUES FOR MONTHS. 
much time you have spent sleeping, 210 FOR I= 1 TO 12 
eating, working, and relaxing. 220 READ uD 
_ This program was adapted froma GE 240 PRINT"ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)"; 
timesharing program by Tom Kloos at 250 INPUT f,D,Y 
the Oregon Museum of Science and 240 PRINT 
Industry. 270 LET I1 = INT((Y-1500)/100) 
280 REM TEST FOR DATE BEFORE CURRENT CALENDAR. 
WEEKDAY 290 IF Y-1582 «0 THEN 1300 

CREATIVE COMPUTING  HORRISTQUN, NEU JERSEY 300 LET A = 1155+(11+3)/4 


310 LET I22INT(A-FNB(CA897) 
320 LET Y2=INT(Y/100) 

330 LET ҮЗ sINT(Y-Y22100) 
340 LET A =Y3/4+Y3+D+T1(H)+12 
350 LET Bs:INT(A-FNBCA)87) 1 


WEEKDAY IS A COMPUTER DEMONSTRATION THAT 
GIVES FACTS ABOUT A DATE OF INTEREST TO ҮШІ. 


ENTER TODAY^S DATE IN THE FORM: 3,24,1978 7 1,7,1978 


340 IF M > 2 THEN 470 
? 12,2 
ЕЙТЕК DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 12,2,1999 370 IF Yi = O THEN 440 
12/2 / 1999 WILL BE à THURSDAY 380 LET TISINT(Y-FNACT)»4) 


390 IF T1 <> 0 THEN 470 
400 IF В<0 THEN 420 


410 LET B=é 
WEEKDAY IS A COMPUTER DEMONSTRATION THAT 420 LET B = B-1 
GIVES FACTS ABOUT A DATE OF INTEREST TO ҮШІ. 430 GOTO 470 
440 LET À = 11-1 
ENTER TODAY^S DATE IN THE FORM: 3,24,1978 7 12,1,1977 450 LET TI«INT(A-FNACA)94) 
ENTER DAY OF BIRTH (OR OTHER DAY OF INTEREST)? 4,12,1952 460 IF ТІ = 0 THEN 400 
470 IF B O0 THEN 490 
4 / 12 / 1952 WAS А SATURDAY 480 LET B = 7 
490 IF (Y1312+81)*31+D1C(Y*12+H)*31+D THEN 550 
YEARS HONTHS DAYS 500 IF (Yiet2+Hi)s314Di=(Ve12+4)"314D THEN 530 
YOUR auE IF BIRTHDATE 25 2 19 510 PRINT нр УН" UAS à "; 
YOU HAVE SLEPT 8 " 24 520 GOTO 570 
YOU HAVE EATEN 4 4 10 530 PRINT НГ “ӘРЕ IS A "5 
YOU HAVE WORKED/PLAYED 5 10 27 540 GOTO 570 . 
YOU HAVE RELAXED 6 4 18 550 PRINT 8;"/*;D;"/";3;" WILL BE A "; 
560 REH PRINT THE DAY OF THE WEEK THE DATE FALLS ON. 
*YOU HAY RETIRE IN 2017 * 570 IF В Q1. THEN 590 
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580 
590 
600 
610 
620 
630 
640 
650 
460 
670 
480 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
?90 
800 
810 
820 
830 
835 
840 
850 
840 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 


4 „> S UA 
5 H Dri: е 3 
So», t S. 3. a igs A Mat ж К s. A. А: 
: 2427 
А MS t t.t e * А : 
ipd rh 77 -..- TNT "3 -..-71 Яу 
w 4%, 2... . - ` , . 7:4 


PRINT "SUNDAY" 
IF BO2 THEN 610 
PRINT “MONDAY " 
ІР BO3 THEM 630 
PRINT "TUESDAY" 
IF BO4 THEN 450 
PRINT "UEDNESDAY" 
IF ВОЗ THEN 670 
PRINT "THURSDAY" 
IF B<>6 THEN 490 
8010 1250 
IF BO? THEN 710 
PRINT "SATURDAY" 
IF (Y1812281)8314D15 (Y41228)9314D. THER 1120 
LET 15=V1-Y 
PRINT 
LET 16=H1-4 
LET 17=D1-D 
IF 1790 THEN 790 
LET Іва 14-1 
LET 17=17430 
IF 16250 THEN 820 
LET 1515-1 
LET 16=16+12 
IF 1540 THEN 1310 
IF 17 <> 0 THEN 850 
IF Iá <> 0 THEN 850 
PRINT“##sHAPPY BIRTHDAY***“ 
PRINT " "," w "YEARS", "HONTHS" , "DAYS" 
PRINT “YOUR AGE IF BIRTHDATE ",15,16,17 
LET AB = (159365) (16930) 4 I2 INTCIA/2) 
LET K5 w 15 
LET KG = 16 
LET K? = I? 
REM CALCULATE RETIREMENT DATE. 
LET E = Y+65 
REM CALCULATE TIME SPENT IN THE FOLLOWING FUNCTIONS. 
LET F = .35 
PRINT “YOU HAVE SLEPT *, 
B0SUB 1370 
LET F = .17 
PRINT “YOU HAVE EATEN ", 
60808 1370 
LET F = ‚23 
IF K5 > 3 THEN 1040 
PRINT “YOU HAVE PLAYED", 
вото 1080 
IF K5 > 9 THEN 1070 
PRINT “YOU HAVE PLAYED/STUDIED", 
8070 1080 
PRINT “YOU HAVE UORKED/PLAYED", 
GOSUB 1370 
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1085 
1090 
1100 
1110 
1120 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1390 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1940 
1550 
1560 
1570 
1580 
1570 


GOTO 1530 

PRINT “YOU HAVE RELAXED “,К5,К4,К7 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 
IF D=13 THEN 1280 


" " "*Y0U MAY RETIRE ІНЕН 


PRINT "FRIDAY " 

GOTO 710 

PRINT "FRIDAY THE THIRTEENTH~~~BEWARE” 

GOTO 710 

PRINT “NOT PREPARED TO GIVE DAY OF WEEK PRIOR TO MDLXXXII. " 


GOTD 1140 
КЕН TABLE OF VALUES FOR THE MONTHS TO BE USED IN CALCULATIONS. 


DATA 0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5 

REM THIS IS THE CURRENT DATE USED IN THE CALCULATIONS. 
REM THIS IS THE DATE TO BE CALCULATED ON. 

REM CALCULATE TIME IN YEARS, MONTHS, AND DAYS 
LET KI=INT(F#AQ) 

LET 15 = INT(K1/365) 

LET КІ = Ki- (15#365) 

LET 16 = INT(KI/30) 

LET 17 = КІ ~(16#30) 

LET K5 = K5-I5 

LET Кё sKá-ló 

LET K? = K2-12 

IF K7>=0 THEN 1480 


LET K7:K2430 

LET Кё=К&-1 

IF K6>0 THEN 1510 
LET Ké=Ká+12 

LET K5=K5-1 

PRINT 15,14,17 
RETURN 

IF Кё=12 THEN 1550 
GOTO 1090 

LET К5=К5+1 

LET K6=0 

6010 1090 

ВЕН 

END 


Word 


WORD is a combination of 
HANGMAN and BAGELS. In this 
game, the player must guess a word 
with clues as to letter position fur- 
nished by the computer. However, 
instead of guessing one letter atatime, 
in WORD you guess an entire word (or 
group of 5 letters, such as ABCDE). 
The computer will tell you if any letters 
that you have guessed are in the 
mystery word and if any of them are in 
the correct position. Armed with these 
clues, you go on guessing until you get 
the word or, if you can't get it, input a 
“2” and the computer will tell you the 
mystery word. 

You may change the words in Data 
Statements 512 and 513, but they must 
be 5-letter words. 

Theauthor ofthis program is Charles 
Reid of Lexington High School, Lex- 
ington, Massachusetts. 


WORD 
CREATIVE COMPUTING HORRISTOUN, NEU JERSEY 


I АН THINKING OF A UORD -- YOU GUESS IT. I WILL GIVE YOU 
CLUES TO HELP YOU GET IT. GOOD LUCK!) 


YOU ARE STARTING A NEU GANE... 

GUESS A FIVE LETTER WORD? ABCDE 

THERE WERE 3 MATCHES AND THE COMMON LETTERS WERE...CAD 

FROM THE EXACT LETTER MATCHES, YOU КН0И................--“В- 


GUESS A FIVE LETTER WORD? FGHIJ 
THERE WERE 0 HATCHES AND THE COMMON LETTERS WERE... 
FROM THE EXACT LETTER HATCHES, YOU KNOW... .. cece eee 777D- 


IF YOU GIVE UP, TYPE 777 FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? LANOP 
THERE ШЕКЕ 1 MATCHES AND THE COMMON LETTERS WERE...N 
FROM THE EXACT LETTER MATCHES, YOU KNDU................-. ND- 


IF YOU GIVE UP, TYPE ^?" FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? CANDY 

THERE VERE 5 MATCHES AND THE COMMON LETTERS WERE...CANDY 
FROM THE EXACT LETTER HATCHES, YOU KNOU................CANDY 
YOU HAVE GUESSED THE WORD. IT TOOK 4 GUESSES! 


MANT TO PLAY AGAIN? YES 


YOU ARE STARTING A NEU GAME... 

GUESS A FIVE LETTER WORD? ABCDE 

THERE WERE 0 MATCHES AND THE COMMON LETTERS WERE... 

FROH THE EXACT LETTER MATCHES, YOU КМ0М................7---- 


IF YOU GIVE UP, ТҮРЕ 777 FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? FGHIJ 
THERE WERE 2 MATCHES AND THE COMMON LETTERS UERE...FI 
FROH THE EXACT LETTER MATCHES, YOU КМ00................ Е---- 


GUESS A FIVE LETTER WORD? MNOPS 
THERE WERE 1 MATCHES AND THE COMMON LETTERS WERE...S 
FROM THE EXACT LETTER HATCHES, YOU КН0И................Ғ-т-- 


IF YOU GIVE UP, TYPE "*" FOR YOUR NEXT GUESS. 


GUESS A FIVE LETTER WORD? FISTS 
THERE WERE 5 MATCHES AND THE COMMON LETTERS WERE...FISST 
FROM THE EXACT LETTER MATCHES, YOU KNOW....... КЕТА 


GUESS А FIVE LETTER UORD? FIRST 

THERE WERE 5 MATCHES AND THE COMMON LETTERS МЕКЕ...ҒІН5Т 
FROM THE EXACT LETTER MATCHES, YOU KNDU................ FIRST 
YOU HAVE GUESSED THE WORD. ІТ TOOK 5 GUESSES! 


WANT TO PLAY AGAIN? NO 


2 PRINT TAB(33) ; "UORD" 

3 PRINT ТАВ(15); "CREATIVE COMPUTING MORRISTOWN, NEU JERSEY" 

4 PRINT: PRINT: PRINT 

5 DIM 802,40) ,LOD, 47), PC?) 

10 PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. 1 WILL GIVE YOU" 
15 PRINT "CLUES TO HELP YOU GET IT. GOOD LUCKI!": PRINT: PRINT 
20 REM 

30 PRINT: PRINT: PRINT "YOU ARE STARTING A NEU БАНЕ..." 

35 RESTORE 

40 READ N 

50 C:INT(RNDCL) N41) 

60 FOR Ізі TO C 

70 READ S$ 

80 NEXT I 

90 6-0 

95 S(O)=LEN(S$) 

100 FOR 1-1 TO LEN(SS): S(IP-ASCONIDS(SS I, 1)) s NEXT I 

110 FOR 1=1 TO 5 

120 А(1) =45 

130 NEXT I 

140 FOR J-1 TO 5 

144 PCGD 50 

146 NEXT J 

180 PRINT "GUESS A FIVE LETTER WORD": 

160 INPUT L$ 

170 8:841 

172 IF 8$-6$ THEN 500 

173 FOR Ist TO 7: Р(1) =0: NEXT I 

175 100) SLENG M) 

180 FOR 151 TO LEN(L$)s LOL)=ASC(MIDS(L$,1,1)): NEXT I 

190 IF 1412563 THEN 300 

200 IF L(0)<>5 THEN 400 

205 H-0: ü-1 

210 FÜR 1=1 TO 5 

220 FOR J=1 TO 5 

230 IF S(T)<>L(J) THEN 260 

231 PD LCD 

232° 4-11 

233 IF I<>J THEN 250 

240 A(J)=L(J) 

250 H=H+1 

260 NEXT J 

265 NEXT I 

270 At0)75 

272 Р(0)=Н 

275 A$="": FOR 1=1 TO ACO): AS-ASHCHRS(ACII): NEXT I 

272 P$z""; FÜR 1=1 TO P(O}: PS-PSHCHRS(PCID): NEXT I 

280 PRINT "THERE UERE";H;"HATCHES AND THE COMMON LETTERS WERE...";P$ 
285 PRINT "FROM THE EXACT LETTER HATCHES, YOU KNDU......... КИИНИН: 
286 IF A$=S$ THEN 500 

287 IF НУІ THEN 289 

288 PRINT: PRINT "IF YOU GIVE UP, TYPE 777 FOR YOUR NEXT GUESS." 
289 PRINT 

290 GOTO 150 

300 S$z"": FOR 151 TO 7: S$=SS8+CHRS(S(1))2 NEXT I 

310 PRINT "THE SECRET WORD IS "sS$: PRINT 

320 GOTO 30 

400 PRINT “YOU HUST GUESS А S LETTER WORD. START AGAIN." 

410 PRINT: 66-1: GOTO 150 

500 PRINT "YOU HAVE GUESSED THE UORD. ІТ TOOK";G;"GUESSES!": PRINT 
510 INPUT "WANT TO PLAY AGAIN";QS 

520 IF 0$-"YES" THEN 30 

530 DATA 12,"DINKY", "SMOKE", "WATER", "GRASS", "TRAIN", “NIGHT”, "FIRST" 
540 DATA "CANDY", "CHAMP", "WOULD", "CLUKP", “DOPEY” 

999 END 
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Index by Game Category 


Introductory Fun 


Buzzword 36 
Hello 82 
Name 116 
Poetry 128 
Rock, Scissors, Paper 137 
Russian Roulette 141 
Weekday 179 
Educational 

Animal 4 
Change 39 
Chemist 42 
Chief 43 
Civil War 46 
Fur Trader 69 
Hammurabi 78 
Hangman 80 
Kinema 95 
King 96 
Literature Quiz 104 
Math Dice 113 
Stock Market 154 
Synonym 164 
Train 175 
Plotting and Pictures 
Amazing 3 
Banner 10 
Bounce 25 
Bug 30 
Bunny 35 
Calendar 37 
Diamond 56 
Life 100 
Life for Two 102 
Love 105 
Sine Wave 146 
3-D Plot 167 


Number or Letter Guessing 
Guess 75 


Hi-Lo 85 
Letter 99 
Number 121 
Stars 153 
Trap 176 


Remove an Object 
Bantum 

Even Wins (2) 

Nim 

23 Matches 


Matrix Manipulation 
Battle 

Bombardment 

Depth Charge 

Hurkle 

Mugwump 

Pizza 

Salvo 


Logic 

Awari 

Bagels 
Chomp 

Cube 

Digits 

Flip Flop 
Hexapawn 
High -Q 
Master Mind® 
Nicomachus 
One Check 
Queen 
Reverse 

3-D Tic Tac Toe 
Tic Tac Toe (2) 
Tower 

Word 


Space 

Lunar, LEM, Rocket 
Orbit 

Splat 

Super Star Trek® 
Target 


Sports Simulation 
Basketball 

Bowling 

Boxing 

Bullfight 

Bullseye 
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118 
177 


110 
117 
122 
133 
135 
168 
171 
173 
181 


106 
124 
151 
157 
165 


12 
26 
28 
32 
34 


Football (2) 64 
Golf 71 
Носкеу 88 
Slalom 147 
Gambling and Casino 
Blackjack 18 
Craps 52 
Dice 57 
Horserace 92 
Poker 129 
Roulette 138 
Slots 149 
Card and Board 

Acey Ducey 2 
Checkers 40 
Gomoko 74 
War 178 
Combat 

Bombs Away 24 
Combat 50 
Gunner 77 


101 imaginative and challenging games for one, 
two, or more players— Basketball, Craps, Gomoko, 
Blackjack, Even Wins, Digits, Bombs Away, Horserace. 
Simulate lunar landings. Play the stock market. 
Write poetry. Draw pictures. 


All games come complete with step-by-step programs and 
sample runs. All programs run on Microsoft 8K Basic, Rev. 4.0. 
Basic conversion table included. 
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